myweb.asp

来自「源码源源码 源码 源码码源 码源 码源 码源 码」· ASP 代码 · 共 27 行

<!--#include file="e_top.asp"-->


<%
'==================================================
'过程名：showother
'作  用：显示其他页面
'参  数：无
'==================================================
sub showother()
set rs=server.createobject("adodb.recordset")
sql="select user_index from myweb_user where userid="&userid&""
rs.open sql,conn,1,1
show_other="<table border='0' width='100%' cellspacing='0' cellpadding='0' height='398'>"
show_other=show_other&"<tr>"
show_other=show_other&"<tr><td valign='top'>"&rs("user_index")&"　</td></tr>"
rs.close
show_other=show_other&"</table>"
set rs=server.createobject("adodb.recordset")
sql="select userwebtimes from myweb_user where userid="&userid&""
rs.open sql,conn,1,3
rs.update
rs(0)=rs(0)+1
rs.update
rs.close
end sub
%>