personinfo.aspx
来自「该软件是采用微软的.net技术编写的bbs论坛」· ASPX 代码 · 共 55 行
ASPX
55 行
<%@ import namespace="system.data"%>
<%@ import namespace="system.data.sqlclient"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="VB" runat="server">
sub page_load(sender as object,e as eventargs)
dim strid as string
strid=request.QueryString("id")
lblmessage.text="性别: " & strid
dim strsqlstring as string
dim mysqlcommstring as string
dim mysqlconn as SQLConnection
dim sqlcomm as SQLCommand
dim mydr as sqldatareader
strsqlstring="server=localhost;uid=sa;pwd=chicken;database=mybbs" '注意密码
mysqlconn=new sqlconnection(strsqlstring)
mysqlcommstring="select * from memberinfo where id='" & strid & "'"
sqlcomm=new sqlcommand(mysqlcommstring,mysqlconn)
mysqlconn.open
mydr=sqlcomm.executereader()
IF mydr.read then
lblqq.text="QQ:" & mydr.item("qq")
if mydr.item("sex")=1 then
lblsex.text="性别: 女"
else
lblsex.text="性别: 男"
end if
lblemail.text="E-MAIL:" & mydr.item("email")
else
lblmessage.text="错误,可能此人已被删除,请刷新"
end if
end sub
</script>
</head>
<body>
<p>
<asp:label ID="lblmessage" runat="server"/>
</p>
<p>
<asp:label ID="lblsex" runat="server"/>
</p>
<p>
<asp:label ID="lblQQ" runat="server"/>
</p>
<p>
<asp:label ID="lblemail" runat="server"/>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?