📄 newuser.asp
字号:
<!-- #include file = "bank.asp" -->
<%
UserName = Session.Contents("UserName")
if UserName="" then
response.redirect "../club/timeout.asp"
elseif UserName = "匆匆过客" then
response.redirect "../club/notlogin.asp"
else
username = request("username")
bank = request("Bank")
if bank="" then UserName=Session.Contents("UserName")
set guests=server.createobject("adodb.recordset")
guests.open "Select * From bankuserlist Where bank='"&bank&"' And User='"&username&"'",Conn_User,3,3
set ibank=server.createobject("adodb.recordset")
ibank.open "Select * From Bank where owner='"&Session.Contents("UserName")&"'",Conn_User,0,1
if guests.recordcount<1 then
guests.addnew
guests("user") = username
guests("money") = 0
guests("bank") = bank
guests.update
end if
%>
<html>
<head>
<title>黄金社区 - 银行</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--td { font-family: 宋体; font-size: 9pt}
body { font-family: 宋体; font-size: 9pt}
select { font-family: 宋体; font-size: 9pt}
A {text-decoration: none; font-family: "宋体"; font-size: 9pt; color: #666666}
A:hover {text-decoration: underline; color: #666666; font-family: "宋体"; font-size: 9pt} .txt { font-family: "宋体"; font-size: 10.5pt}
--></style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" height="420" bgcolor="#666666" align="center" valign="top">
<br>
<p><b><a href="bank.asp"><font color="#FFFFFF">返回银行</font></a></b></p>
</td>
<td width="10"> </td>
<td valign="top" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32"> </td>
<td> </td>
</tr>
</table>
<table width="96%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<form name="" action="newuser.asp" method="post" >
请选择您要给予开户的人的银行：
<select name="Bank" style="border:1 solid #9a9999; font-size:9pt; background-color:#ffffff">
<option>请选择银行</option><% do while not ibank.eof%>
<option value="<%=ibank("Bank")%>" selected><%=ibank("Bank")%></option><% ibank.movenext
loop%>
</select>
<br>
<br>
请输入用户名：
<input type="text" name="username" style="width:80;border:1 solid #9a9999; font-size:9pt; background-color:#ffffff">
<br>
<br>
<input type="submit" name="Submit" value="Submit" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
<input type="reset" name="Reset" value="Reset" style="width:80;height:22;border:1 solid #9a9999; font-size:9pt; background-color:#f8f8f8">
</form>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" bgcolor="#666666" align="center" valign="top"> </td>
<td width="10"> </td>
<td valign="top" align="center">
</td>
</tr>
</table>
</body>
</html>
<%
set ibank=nothing
set guests=nothing
Conn_User.close
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -