www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/admin_editlink.asp
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改Q空间信息_<%=WebName & ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
dim username
username=hx.checkstr(request("username"),12)
dim strerror
dim rs,sql
if session("cutelink_admin")<>"OK" then
strerror="<li>意外出错，请重新登陆"
response.write strerror
response.end
end if
sub saveedit
dim username,sitename,siteurl,sitelogo,email,password,pwdconfirm,webtype,siteintro
username=hx.checkstr(request.form("username"),12)
sitename=hx.checkstr(request.form("sitename"),12)
siteurl=hx.checkstr(request.form("siteurl"),100)
sitelogo=hx.checkstr(request.form("sitelogo"),100)
email=hx.checkstr(request.form("email"),50)
password=hx.checkstr(request.form("password"),16)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),16)
webtype=request.form("webtype")
siteintro=hx.checkstr(request.form("siteintro"),250)
dim outc,outj,outp,inc,inj,inp,zdate,indate,outdate,fromdate
outc=cint(request.form("outc"))
outj=cint(request.form("outj"))
outp=CSng(request.form("outp"))
inc=cint(request.form("inc"))
inj=cint(request.form("inj"))
inp=CSng(request.form("inp"))
fromdate=cdate(request.form("fromdate"))
zdate=cdate(request.form("dateandtime"))
indate=cdate(request.form("indate"))
outdate=cdate(request.form("outdate"))
dim blnerror
blnerror=false
if username="" then
blnerror=true
strerror="<li>意外出错，请选择用户名"
else
sql="select * from CL_Link where username='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
if rs.eof then
blnerror=true
strerror="<li>没有该用户"
end if
end if
if sitename="" or siteurl="" or password="" or siteintro="" or email="" then
blnerror=true
strerror=strerror & "<li>请检查是否有必填信息没有填写"
end if
if sitelogo="" then
sitelogo="face/1.bmp"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择Q空间类型。"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "<li>两次密码不相同。"
end if
if blnerror=true then
response.write strerror
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"
else
rs("outc")=outc
rs("outj")=outj
rs("outp")=outp
rs("inc")=inc
rs("inj")=inj
rs("inp")=inp
rs("email")=email
rs("sitename")=sitename
rs("webtype")=webtype
if len(password)<16 then
rs("password")=md5(password,16)
end if
rs("siteurl")=siteurl
rs("siteintro")=siteintro
rs("sitelogo")=sitelogo
rs("indate")=indate
rs("outdate")=outdate
rs("fromdate")=fromdate
rs("dateandtime")=zdate
rs.Update
response.write "<p><li>修改成功</p>"
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a> << <a href=admin_manage.asp>返回管理首页</a></p>"
end if
end sub
%>
<table width="760" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
<tr>
<td height="22">您的位置:<a href="<%=WebUrl%>">首页</a>
-> <a href="admin_manage.asp">管理首页</a> -> 修改Q空间信息</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="main_tdbg">
<tr>
<td> <%
dim action
action=request("action")
select case action
case "saveedit"
call saveedit
case else
call showlist
end select
sub showlist
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from CL_Link where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "无此用户,或者用户已经被删除!"
response.end
end if
%> <form action="?username=<%=username%>&Action=saveedit" method="POST">
<table width="99%" border="1" align="center" cellpadding="4" cellspacing="0" bordercolorlight="#999999"
bordercolordark="#FFFFFF">
<tr>
<td> 用 户 名：</td>
<td colspan="5"><%=rs("username")%>
<input name="username" type="hidden" id="username" value="<%=rs("username")%>" ></td>
</tr>
<tr>
<td> Qzone名称：</td>
<td colspan="5"> <input name="sitename" type="text" id="sitename" value="<%=rs("sitename")%>" size="12" maxlength="12">
<font color="#CC0000">* 不能超过12个字符（6个汉字）</font></td>
</tr>
<tr>
<td> Qzone号码：</td>
<td colspan="5"> <input name="siteurl" type="text" id="siteurl" value="<%=rs("siteurl")%>" size="20" maxlength="20">
<b>.qzone.qq.com</b> <font color="#CC0000">* 输入你的QQ号码即可。</font></td>
</tr>
<tr>
<td> 注册时间：</td>
<td colspan="5"> <input name="dateandtime" type="text" id="dateandtime" value="<%=rs("dateandtime")%>" size="16" maxlength="20">
</td>
</tr>
<tr>
<td>统计时间：</td>
<td><input name="fromdate" type="text" id="fromdate" value="<%=rs("fromdate")%>" size="16" maxlength="20">
</td>
<td>点入时间：</td>
<td> <input type="text" name="indate" size="10" maxlength="10" value="<%=rs("indate")%>">
</td>
<td>点出时间：</td>
<td> <input type="text" name="outdate" size="10" maxlength="10" value="<%=rs("outdate")%>">
</td>
</tr>
<tr>
<td>总计点入：</td>
<td> <input type="text" name="inc" size="16" maxlength="8" value="<%=rs("inc")%>">
</td>
<td>今天点入 ：</td>
<td> <font color="#FF0000">
<input type="text" name="inj" size="16" maxlength="8" value="<%=rs("inj")%>">
</font></td>
<td>平均点入 ：</td>
<td> <input type="text" name="inp" size="16" maxlength="8" value="<%=rs("inp")%>">
</td>
</tr>
<tr>
<td>总击点出：</td>
<td> <input type="text" name="outc" size="16" maxlength="8" value="<%=rs("outc")%>">
</td>
<td>今天点出：</td>
<td> <font color="#FF0000">
<input type="text" name="outj" size="16" maxlength="8" value="<%=rs("outj")%>">
</font></td>
<td>平均点出： </td>
<td> <input type="text" name="outp" size="16" maxlength="8" value="<%=rs("outp")%>">
</td>
</tr>
<tr>
<td> 头像地址：</td>
<td colspan="4"> <input name="sitelogo" type="text" id="sitelogo" value="<%=rs("sitelogo")%>" size="20" maxlength="20"> </td>
<td><img src="<%=rs("sitelogo")%>" width=40 height=40></td>
</tr>
<tr>
<td> Qzone类型：</td>
<td colspan="5"> <select name="webtype" size="1">
<%call hx.listwebtype(rs("webtype"))%>
</select> </td>
</tr>
<tr>
<td> 密 码：</td>
<td colspan="5"> <input name="password" type="password" id="password" value="<%=rs("password")%>" size="10" maxlength="12">
<font color="#CC0000">* 不能超过12个字符</font></td>
</tr>
<tr>
<td> 密码确认：</td>
<td colspan="5"> <input name="pwdconfirm" type="password" id="pwdconfirm" value="<%=rs("password")%>" size="10" maxlength="12">
<font color="#CC0000">* 请再输一遍确认</font></td>
</tr>
<tr>
<td> 联系邮箱：</td>
<td colspan="5"> <input type="text" name="email" size="30" maxlength="50" value="<%=rs("email")%>">
<font color="#CC0000">* 请输入有效的邮件地址，不能超过50个字符</font></td>
</tr>
<tr>
<td> Qzone简介：<br>
（100字）</td>
<td colspan="5"> <textarea name="siteintro" cols="70" rows="4" id="siteintro"><%=rs("siteintro")%></textarea>
</td>
</tr>
<tr>
<td colspan="6" align="center" class="td"> <input type="submit" value=" 确 定 " name="yes">
<input name="reset" type="reset"
value=" 重 写 "> </td>
</tr>
</table>
</form>
<%end sub%>
</td>
</tr>
</table>
<!--#include file="under.asp"-->
<%Closedatabase%>
</body>
</html>