能不能在中调用session变量?
<script language="VBScript">
<!--
Sub Show_time()
msgbox session("firm")
setTimeout "Show_time", 1000
End Sub
-->
</script>
<body background="../images/bg.jpg" onload=show_time()>
程序目的就是当session("firm")为空时,提醒重新登陆!!
<!--
Sub Show_time()
msgbox session("firm")
setTimeout "Show_time", 1000
End Sub
-->
</script>
<body background="../images/bg.jpg" onload=show_time()>
程序目的就是当session("firm")为空时,提醒重新登陆!!
...全文
请发表友善的回复…
发表回复
zjg791015 2003-12-04
- 打赏
- 举报
可以的!因为ASP本来就是使用的VBSCRIPT。
aspczlover 2003-12-04
- 打赏
- 举报
能调用的~
msgbox session("firm")
--->
msgbox "<%=session("firm")%>"
msgbox session("firm")
--->
msgbox "<%=session("firm")%>"
超级大笨狼 2003-12-04
- 打赏
- 举报
调用session变量已经做为一个常量处理了,所以每秒弹出的都一样,不论session是否变,除非刷新。
<script language=VBS>
Show_time
Sub Show_time()
msgbox "<%=session("firm")%>"
setTimeout "Show_time", 1000
End Sub
</script>
<script language=VBS>
Show_time
Sub Show_time()
msgbox "<%=session("firm")%>"
setTimeout "Show_time", 1000
End Sub
</script>
连接数据库代码实例
1,连接数据库代码 文件名称 conn.asp 所有访问数据库的文件都调用此文件
<%
db=\"data/data.mdb\" \'数据库存放目录
on error resume next
set conn=server.createobject(\"adodb.connection\")
conn.open \"driver={microsoft access driver (*.mdb)};dbq=\"&server.mappath(db)
if err then
err.clear
set conn = Nothing
response.write \"数据库连接出错,请检查conn.asp中的连接字符串。\"
response.end
end if
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>
<%
dim badword
badword=\"\'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=\"
if request.QueryString<>\"\" then
chk=split(badword,\"|\")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write \"<script language=javascript>alert(\'传参错误!参数 \"&query_name&\" 的值中包含非法字符串!\\n\\n\');location=\'\"&request.ServerVariables(\"HTTP_REFERER\")&\"\'Script>\"
response.end
end if
next
next
end if
%>
----------------------------------------------
2。增加纪录
<%
if request(\"action\")=\"add\" then
name=request.form(\"name\")
content=request.form(\"content\")
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao\"
rs.open sql,conn,3,2
rs.addnew
rs(\"name\")=name
if content<>\"\" then
rs(\"content\")=content
else
rs(\"content\")=null
end if
rs(\"date\")=date()
rs.update
rs.close
set rs=nothing
response.write \"<script language=javascript>alert(\'添加成功!\');location.href(\'index.asp\');script>\"
end if
%>
--------------------------------------
3.显示记录
<%
set rs=server.createobject(\"adodb.recordset\")
sql=\"select * from biao order by id desc\"
\'sql=\"select top 10 * from biao order by id desc\"
rs.open sql,conn,1,1
rs.pagesize=15 \'-------设置每页显示的记录数
dim page
page=request(\"page\")
if page<>\"\" and IsNumeric(page) then
page=clng(page)
else
page=1
end if
n=rs.pagecount
if page>n then
page=clng(n)
end if
if rs.eof then
response.write\"暂没有信息!\"
\'response.end
else
rs.absolutepage=page
end if
i=0
do while not rs.eof and i
--------如果是每行显示n个纪录开始----------------------------
<%
do while not rs.eof and i\"
end if
%>
--------如果是每行显示n个纪录结束-----------------------------
<%=rs(\"id\")%>
<% rs.movenext
i=i+1
loop
%>
<%
response.write(\"共\"&rs.recordcount&\"条信息 \")
if page<>1 then
response.write(\"首页 \")
else
response.write(\"首页 \")
end if
if page>1 then
response.write(\"上一页 \")
else
response.write(\"上一页 \")
end if
if page下一页 \")
else
response.write(\"下一页 \")
end if
if page<>n then
response.write(\"尾页 \")
else
response.write(\"尾页 \")
end if
response.write(\" 当前页:\"&page&\"/\"&n&\"\")
%>
转到: