UC知道请教————asp 显示用户信息
来源：百度知道 编辑：UC知道 时间：2024/07/02 07:33:01
请问
比如说用guest用户登录
我想显示guest在sql里的信息
请问具体语句是什么
<%
Response.Buffer=True
dim conn
dim connstr
on error resume next
connstr="Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=患者信息管理系统;User Id=sa;Password=as;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Id=Session("UserName")
set rs1 = Server.CreateObject("ADODB.recordset")
sql="select * from register where UserName='"&uname&"'"
set rs1=conn.execute(sql)
rs1.open sql,conn,1,1
%〉
比如说用guest用户登录
我想显示guest在sql里的信息
请问具体语句是什么
<%
Response.Buffer=True
dim conn
dim connstr
on error resume next
connstr="Provider=sqloledb;Data Source=127.0.0.1;Initial Catalog=患者信息管理系统;User Id=sa;Password=as;"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Id=Session("UserName")
set rs1 = Server.CreateObject("ADODB.recordset")
sql="select * from register where UserName='"&uname&"'"
set rs1=conn.execute(sql)
rs1.open sql,conn,1,1
%〉
<%sql="select Forum_UserNum from Dv_Setup":Set rs=Conn.Execute(sql):usernum=rs(0)%>
<table width="253" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26" background="images/tit_bg.gif" align="left"><font color="#FFFFFF"> <strong>-=>论坛统计情况 注册会员：<%=usernum%>人</strong></font></td>
</tr>
<tr>
<td height="86" align="left" class="tableBorder1">
<%
sql="select count(id) from Dv_Online where userid>0":Set rs=Conn.Execute(sql):member=rs(0)
sql="select count(id) from Dv_Online where userid=0":Set rs=Conn.Execute(sql):guest=rs(0)
sql="select Forum_Maxonline from Dv_Setup":Set rs=Conn.Execute(sql):maxonline=rs(0)
%>
<%
If DatabaseType=1 Then
Set Rs=Conn.Execu