📄 aduser.asp
字号:
<!--#include file="dbpath.asp"-->
<%if session("jypxadmin")<>"ok" then
response.end
end if
tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("user.asp"))
sqladm="select * from admin"
Set rsadm= Server.CreateObject("ADODB.Recordset")
rsadm.open sqladm,conn,1,1%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rsadm("webname")%>：
<%if request("type")="reg" then
response.write"新站加入"
elseif request("type")="edit" or request("type")="login" then
response.write"修改资料"
elseif request("type")="code" then
response.write"取得代码"
end if
%></title>
<style type="text/css">
td { font-size: 9pt; line-height: 12pt}
a:link {color: #000080; text-decoration: none }
a:visited {color: #000080; text-decoration: none }
a:hover {color: #FF0000; text-decoration: underline }</style>
</head>
<body topmargin="0" leftmargin="0">
<div align="center">
<center>
<table border="0" width="630" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><%=rsadm("ad1")%></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" width="630" cellspacing="0" cellpadding="0" height="7">
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="10" valign="top"></td>
<td width="540" valign="top">
<table border="0" width="774" cellspacing="0">
<tr>
<td width="100%" bgcolor="#000000">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="18" bgcolor="#2B6DA9">
<tr>
<td width="33%" valign="bottom"> <font color="#FFFFFF"><script language="JavaScript">
<!--
function WeekName(cdate) {
WeekNameArr = new Array(7)
WeekNameArr[0] = "日"
WeekNameArr[1] = "一"
WeekNameArr[2] = "二"
WeekNameArr[3] = "三"
WeekNameArr[4] = "四"
WeekNameArr[5] = "五"
WeekNameArr[6] = "六"
return WeekNameArr[eval(cdate.getDay())]
}
//-->
</script><script language="JavaScript">
currentDate=new Date()
with(currentDate)
{
document.write(getYear()+"-"+(getMonth()+1)+"-"+getDate()+" 周"+WeekName(currentDate))
}
</script></font></td>
<td width="33%"></td>
</center>
<td width="34%">
<p align="right"><a href="user.asp?type=code"><font color="#FFFFFF">
取得代码</font></a> <a href="user.asp?type=login"><font color="#FFFFFF">
修改资料</font></a> <a href="user.asp?type=reg"><font color="#FFFFFF">新站加入</font></a><font color="#FFFFFF"> </font></td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="100%" height="3"></td>
</tr>
<tr>
<td width="100%" height="10" bgcolor="#F4F4F4"> </td>
</tr>
<tr>
<td width="100%" height="6" bgcolor="#F4F4F4">
<div align="center">
<%'############################### 新站加入/修改资料 ###############################
if request("type")="reg" or request("type")="edit" then%>
<%
if request("type")="edit" then
if request("user")="" then
response.write("<script>alert('参数错误:用户名不能为空!')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=user.asp?type=login'>"
response.end
end if
if session("jypxadmin")="ok" or session("jypxlogin")=request("user") then
sql="select * from link where user='"&request("user")&"'"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
else
response.write("<script>alert('登陆超时!')</script>")
response.write "<meta http-equiv='Refresh' content='0; URL=user.asp?type=login'>"
response.end
end if
end if
%>
<table border="0" width="90%" cellspacing="1" cellpadding="0" bgcolor="#808080">
<form method="POST" action="save.asp?type=<%=request("type")%><%if request("type")="edit" then%>&user=<%=rs("user")%><%end if%>">
<tr>
<td width="100%">
<p align="left"><b><font color="#FFFFFF">
<%if request("type")="edit" then%>修改资料
[<b></b></font><b><a href="save.asp?type=exit"><font color="#00FF00">退出登陆</font></a></b><font color="#FFFFFF">]<%else%>新站加入<%end if%></font></b></td>
</tr>
<center>
<tr>
<td width="100%" bgcolor="#FFFFFF">
<table border="0" width="100%" cellspacing="1" cellpadding="3">
<tr>
<td width="15%" align="right" nowrap>用户名：</td>
<td width="85%" nowrap><%if request("type")="edit" then%><font color="#FF0000"><%=rs("user")%></font><%else%><input name="user" size="13">
* 不要有空格<%end if%> </td>
</tr>
<tr>
<td width="15%" align="right" nowrap>密 码：</td>
<td width="85%" nowrap>
<input name="pwd" size="13" value="<%=rs("pwd")%>" type="password">
* 不要有空格 </td>
</tr>
<tr>
<td width="15%" align="right" nowrap>EMAIL：</td>
<td width="85%" nowrap>
<input name="email" size="48" value="<%=rs("email")%>"> * </td>
</tr>
<tr>
<td width="15%" align="right" nowrap>网站名称：</td>
<td width="85%" nowrap>
<input name="web" size="19" value="<%=rs("web")%>"> * </td>
</tr>
<tr>
<td width="15%" align="right" nowrap>网站地址：</td>
<td width="85%" nowrap>
<input name="url" size="48" value="<%if request("type")="edit" then%><%=rs("url")%><%else%>http://<%end if%>">
* </td>
</tr>
<tr>
<td width="15%" align="right" nowrap>图标地址：</td>
<td width="85%" nowrap>
<input name="logo" size="48" value="<%if request("type")="edit" then%><%=rs("logo")%><%else%>http://<%end if%>">(88*31)
</td>
</tr>
<tr>
<td width="15%" align="right" nowrap>网站描述：</td>
<td width="85%" nowrap>
<textarea rows="2" name="txt" cols="48"><%=rs("txt")%></textarea>
*</td>
</tr>
<tr>
<td width="15%" align="right" nowrap>站长评级：</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -