28,406
社区成员
发帖
与我相关
我的任务
分享------追寻兔子的足迹：收集大家的编程心得，如技术难题、经典代码、独特见解！------
本着共享精神与兔子伟大的精神力量，征集大家的编程心得，更好的提高我们大家(说中国会不会有点过分？^_^)整体的水品
最近发现asp版的问题有点散，没有针对性，其实有的问题只需要使用csdn的搜索功能就能解决的。
（嘘，不要告诉别人哦，这可是我的心得！）
搜索地址：http://community.csdn.net/Expert/search.asp?bigclassid=0&smallclassid=301
如果实在解决不了的话再提问吧？个人感觉就csdn现有的问题，完全可以解决日常碰到的所有问题。
希望大家那出自己压箱底的东西吧！~我知道绝大部分的朋友都有自己珍藏的东西滴……
比如：
技术难题，已解决、未解决都可以，如果已解决希望说下解决办法；
经典代码，HOHO！~~自己写的别人写的，你觉得好的就拿出来同大家分享吧 ^_^
独特见解，这个一般高手都会有滴，具偶了解这样的人不再少数，比如兔子，小天....（后面省略N个名字，偶记性不好）
另，个人比较需要的是SQL存储过程 ^_^ 大家就帮帮忙咯
最近发现asp版的问题有点散，没有针对性，其实有的问题只需要使用csdn的搜索功能就能解决的。
（嘘，不要告诉别人哦，这可是我的心得！）
搜索地址：http://community.csdn.net/Expert/search.asp?bigclassid=0&smallclassid=301
如果实在解决不了的话再提问吧？个人感觉就csdn现有的问题，完全可以解决日常碰到的所有问题。
希望大家那出自己压箱底的东西吧！~我知道绝大部分的朋友都有自己珍藏的东西滴……
比如：
技术难题，已解决、未解决都可以，如果已解决希望说下解决办法；
经典代码，HOHO！~~自己写的别人写的，你觉得好的就拿出来同大家分享吧 ^_^
独特见解，这个一般高手都会有滴，具偶了解这样的人不再少数，比如兔子，小天....（后面省略N个名字，偶记性不好）
另，个人比较需要的是SQL存储过程 ^_^ 大家就帮帮忙咯
...全文
请发表友善的回复…
发表回复
tkss 2005-06-06
- 打赏
- 举报
我在上边也得到些资料，也发一点吧，也许别人已发，我没注意可不管了。
http://community.csdn.net/Expert/topic/3243/3243737.xml?temp=.6665766
很详细 的权限系统的分析。
http://community.csdn.net/Expert/topic/3243/3243737.xml?temp=.6665766
很详细 的权限系统的分析。
i365 2005-06-06
- 打赏
- 举报
mark一下
lstup 2005-06-06
- 打赏
- 举报
哈哈，帖子移过来这里，竟然只剩下今生一个人是星星了 ^_^
丛林蚂蚁 2005-06-06
- 打赏
- 举报
此处高人这么多.正好有一问题寻求高人帮助.
我现在想实现类似新浪一样的通行证,通过COOKIE已基本实现,可是现在又出现一问题就是,一旦登录过一次后,如果不关掉相关IE,就不能再次登录.登录也不给出出错提示.
代码如下.
登录写入COOKIES
response.Cookies("User").Domain = "1tor.com"
response.Cookies("User")("username") = trim(request("username"))
登出写入COOKIES
response.Cookies("User")("username") = ""
response.Cookies("User").Expires = now()-1000
我写的在哪里有问题???Expires不就是定义COOKIES的失效时间吗?为什么定义了失效时间比登录的当前时间还要早,却不能清掉COOKIES.高人请指教.
我现在想实现类似新浪一样的通行证,通过COOKIE已基本实现,可是现在又出现一问题就是,一旦登录过一次后,如果不关掉相关IE,就不能再次登录.登录也不给出出错提示.
代码如下.
登录写入COOKIES
response.Cookies("User").Domain = "1tor.com"
response.Cookies("User")("username") = trim(request("username"))
登出写入COOKIES
response.Cookies("User")("username") = ""
response.Cookies("User").Expires = now()-1000
我写的在哪里有问题???Expires不就是定义COOKIES的失效时间吗?为什么定义了失效时间比登录的当前时间还要早,却不能清掉COOKIES.高人请指教.
underone 2005-06-06
- 打赏
- 举报
顶顶顶
luotofeng 2005-06-06
- 打赏
- 举报
啥子都不会啊？回家种田算啦
丛林蚂蚁 2005-06-06
- 打赏
- 举报
学习学习吧.可是公司事儿很多.都没时间在这儿学习了...
创造奇迹9999 2005-06-06
- 打赏
- 举报
up
soft_2008 2005-06-06
- 打赏
- 举报
支持 :)
AppleBBS 2005-06-05
- 打赏
- 举报
好咚咚
D_majia 2005-06-05
- 打赏
- 举报
UP,学习！
lovebeyondforever 2005-06-05
- 打赏
- 举报
HOHO。大up一下
lstup 2005-06-05
- 打赏
- 举报
HOHO。小up一下
charden 2005-06-04
- 打赏
- 举报
搜集资料中ing。。。。。
patchclass 2005-06-04
- 打赏
- 举报
这么长？
xlApp.quit '千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set xlApp=nothing"是不行的。
这里有个bug，就是用javascript处理excle的时候，即使你.quit了还是无法释放资源，需要用垃圾回收器来释放
xlApp.quit '千万记住要加这一句，否则每运行一次你的机器里就增加一个excel进程，而且无法释放。我试过"set xlApp=nothing"是不行的。
这里有个bug，就是用javascript处理excle的时候，即使你.quit了还是无法释放资源，需要用垃圾回收器来释放
创造奇迹9999 2005-06-04
- 打赏
- 举报
please input table name!
lstup 2005-06-04
- 打赏
- 举报
-_-||
请输入表明 = 请输入表名
请输入表明 = 请输入表名
iuhxq 2005-06-04
- 打赏
- 举报
兔子，再改善一下呀。呵呵
<script language='vbscript'>
dim field_info,theexceptfield,tablename
function createsqlstr
dim str : str=""
str=str & "@num int" & "<br />"
str=str & "@page int" & "<br />"
for each thefieldname in field_info
str=str & "@" & field_info(thefieldname) & "<br />"
next
str=str & "@" & theexceptfield & "<br />"
str=str & "declare @thepage int" & "<br />"
str=str & "set @thepage=(@page-1) * @num" & "<br />"
str=str & "set @sql='select top '+cast(@num as nvarchar(30))+' * from " & tablename
i=1
for each thefieldname in field_info
if i=1 then str=str & " where "
str=str & field_info(thefieldname) & "='+case(@" & field_info(thefieldname) & " as nvarchar(30))+' and "
i=i+1
next
str=str & theexceptfield & " not in(select top '+cast(@thepage as nvarchar(30))+'" & " " & theexceptfield
str=str & " from " & tablename & " where "
i=1
for each thefieldname in field_info
if i<>1 then str=str & " and "
str=str & field_info(thefieldname) & "='+case(@" & field_info(thefieldname) & " as nvarchar(30))+'"
i=i+1
next
str=str & "order by " & theexceptfield &") order by " & theexceptfield & "'"
createsqlstr=str
end function
function setfieldnum
set thefieldname=document.getElementById("fieldname")
set thesetnum=document.getElementById("setnum")
thenum=thesetnum.value
if isnumeric(thenum) then
thenum=Cint(thenum)
str="请输入您所要查询的字段名：" & "<br />"
for i=0 to thenum-1
str=str & "字段" & i+1 & "：<input type='text' name='fieldnames' size='30' />" & "<br />"
next
str=str & "请输入您所用的标识字段名：" & "<input type='text' id='exceptfield' />" & "<br />"
str=str & "模糊查询：" & "<input type='checkbox' name='like' />" & "<br />"
str=str & "请输入表明：" & "<input type='text' id='tablenamed' />" & "<br />"
str=str & "<a href='vbscript:saveinfo()'>显示sql</a>"
thefieldname.innerHTML=str
end if
end function
function saveinfo()
set theshowsql=document.getElementById("showsql")
set thefieldnames=document.getElementsByName("fieldnames")
set the_exceptfield=document.getElementById("exceptfield")
set field_info=createobject("scripting.dictionary")
set thetablename=document.getElementById("tablenamed")
theexceptfield=the_exceptfield.value
tablename=thetablename.value
for i=0 to thefieldnames.length-1
thevalue=thefieldnames(i).value
field_info.add thevalue,thevalue
next
str=createsqlstr
theshowsql.innerhtml=str
end function
</script>
<html>
<head>
<base target="_self">
</head>
<body>
设定：<input type='text' id='setnum' size='2' />----<a href='vbscript:setfieldnum()'>确定</a>
<div id='fieldname'>
</div>
<div id='showsql'>
</div>
</body>
</html>
<script language='vbscript'>
dim field_info,theexceptfield,tablename
function createsqlstr
dim str : str=""
str=str & "@num int" & "<br />"
str=str & "@page int" & "<br />"
for each thefieldname in field_info
str=str & "@" & field_info(thefieldname) & "<br />"
next
str=str & "@" & theexceptfield & "<br />"
str=str & "declare @thepage int" & "<br />"
str=str & "set @thepage=(@page-1) * @num" & "<br />"
str=str & "set @sql='select top '+cast(@num as nvarchar(30))+' * from " & tablename
i=1
for each thefieldname in field_info
if i=1 then str=str & " where "
str=str & field_info(thefieldname) & "='+case(@" & field_info(thefieldname) & " as nvarchar(30))+' and "
i=i+1
next
str=str & theexceptfield & " not in(select top '+cast(@thepage as nvarchar(30))+'" & " " & theexceptfield
str=str & " from " & tablename & " where "
i=1
for each thefieldname in field_info
if i<>1 then str=str & " and "
str=str & field_info(thefieldname) & "='+case(@" & field_info(thefieldname) & " as nvarchar(30))+'"
i=i+1
next
str=str & "order by " & theexceptfield &") order by " & theexceptfield & "'"
createsqlstr=str
end function
function setfieldnum
set thefieldname=document.getElementById("fieldname")
set thesetnum=document.getElementById("setnum")
thenum=thesetnum.value
if isnumeric(thenum) then
thenum=Cint(thenum)
str="请输入您所要查询的字段名：" & "<br />"
for i=0 to thenum-1
str=str & "字段" & i+1 & "：<input type='text' name='fieldnames' size='30' />" & "<br />"
next
str=str & "请输入您所用的标识字段名：" & "<input type='text' id='exceptfield' />" & "<br />"
str=str & "模糊查询：" & "<input type='checkbox' name='like' />" & "<br />"
str=str & "请输入表明：" & "<input type='text' id='tablenamed' />" & "<br />"
str=str & "<a href='vbscript:saveinfo()'>显示sql</a>"
thefieldname.innerHTML=str
end if
end function
function saveinfo()
set theshowsql=document.getElementById("showsql")
set thefieldnames=document.getElementsByName("fieldnames")
set the_exceptfield=document.getElementById("exceptfield")
set field_info=createobject("scripting.dictionary")
set thetablename=document.getElementById("tablenamed")
theexceptfield=the_exceptfield.value
tablename=thetablename.value
for i=0 to thefieldnames.length-1
thevalue=thefieldnames(i).value
field_info.add thevalue,thevalue
next
str=createsqlstr
theshowsql.innerhtml=str
end function
</script>
<html>
<head>
<base target="_self">
</head>
<body>
设定：<input type='text' id='setnum' size='2' />----<a href='vbscript:setfieldnum()'>确定</a>
<div id='fieldname'>
</div>
<div id='showsql'>
</div>
</body>
</html>
coolyqy 2005-06-04
- 打赏
- 举报
收之！
创造奇迹9999 2005-06-04
- 打赏
- 举报
终于看来兔子了!呵呵呵!!!
@_@!
@_@!
加载更多回复（77）
