📄 admin_editlink.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Conn.asp"-->
<!--#include file="Md5.asp"-->
<%
If Session(SiteSN&"_Admin_Login")<>AdminName&"_"&AdminPass Then
Response.redirect "Admin_Login.asp"
End If
dim username
UserName=Wap.checkstr(request("UserName"),12)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>修改网站信息_<%=WebName & ChannelName%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
sub saveedit
dim username,sitename,siteurl,siteTitle,email,password,pwdconfirm,webtype,siteintro,isverify
username=Wap.checkstr(request.form("UserName"),12)
sitename=Wap.checkstr(request.form("sitename"),12)
siteurl=Wap.checkstr(request.form("siteurl"),100)
siteTitle=Wap.checkstr(request.form("siteTitle"),100)
password=Wap.checkstr(request.form("password"),16)
pwdconfirm=Wap.checkstr(request.form("pwdconfirm"),16)
webtype=request.form("webtype")
siteintro=Wap.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"))
outchu=CSng(request.form("outchu"))
inru=CSng(request.form("inru"))
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"))
isverify=request.form("isverify")
GuLian=request.form("GuLian")
WuxIao=request.form("WuxIao")
ShouXian=request.form("ShouXian")
Xianshua=request.form("Xianshua")
if GuLian="" then GuLian=0
if WuxIao="" then WuxIao=0
if ShouXian="" then ShouXian=0
if Xianshua="" then Xianshua=0
dim blnerror
blnerror=false
if username="" then
blnerror=true
strerror="<li>意外出错，请选择用户名"
else
sql="select * from Link where username='"&username&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,Conn,1,3
if rs.eof then
blnerror=true
strerror="<li>没有该用户"
end if
end if
if sitename="" or siteurl="" or password="" or siteintro="" then
blnerror=true
strerror=strerror & "<li>请检查是否有必填信息没有填写"
end if
if Wap.blnfilter(sitename,1) then
blnerror = true
strerror = strerror & "<li>网站名称不能包含某些特殊关键词"
end if
if Wap.blnfilter(siteintro,1) then
blnerror = true
strerror = strerror & "<li>网站简介不能包含某些特殊关键词"
end if
if Wap.blnfilter(siteurl,2) then
blnerror = true
strerror = strerror & "<li>此域名已经被屏蔽！"
end if
if webtype="" or not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择网站类型"
end if
if isverify="1" then
isverify=strTrue
else
isverify=strFalse
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("outchu")=outchu
rs("inru")=inru
rs("inc")=inc
rs("inj")=inj
rs("inp")=inp
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("siteTitle")=siteTitle
rs("indate")=indate
rs("outdate")=outdate
rs("fromdate")=fromdate
rs("dateandtime")=zdate
rs("isverify")=isverify
rs("GuLian")=GuLian
rs("WuxIao")=WuxIao
rs("ShouXian")=ShouXian
rs("Xianshua")=Xianshua
rs.Update
Response.write "<div class=""cutpage"">"
Response.write "<p>修改成功</p>"
Response.write "<p><a href=""javascript:history.go(-1)"">返回上一页 </a> <a href=""admin_manage.asp"">返回管理首页</a></p>"
Response.write "</div>"
end if
end sub
%>
<div class="main_title1">
<a href="admin_manage.asp">管理首页</a> | <a href="Admin_Addlink.asp">添加站点</a> | <a href="admin_manage.asp?action=ListSite">管理网站信息</a> | <a href="admin_manage.asp?action=ShowLog">查看点击记录</a> | <a href="admin_type.asp">管理网站分类</a> | <a href="admin_manage.asp?action=BatchDelform">批量删除数据</a> | <a href="admin_login.asp?action=exit">退出管理</a>
</div><div class="mainbar">
<%
dim action
action=Request("action")
select case action
case "saveedit"
call saveedit
case else
call showlist
end select
sub showlist
dim rs
rs=Wap.execute("select * from Link where username='"&username&"'")
%> <form action="?username=<%=username%>&Action=saveedit" method="POST">
<table align="center" width="99%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000">
<tr class="tr2">
<td width="12%" align="center">用 户 名：</td>
<td colspan="5"><%=rs("username")%>
<input name="username" type="hidden" id="username" value="<%=rs("username")%>" >
</td>
</tr>
<tr class="tr2">
<td align="center">显示配置：</td>
<td colspan="5"> <input name="isverify" type="checkbox" id="isverify" value="1"<%if rs("isverify")=strTrue then Response.Write " checked"%>>是否通过审核
<input name="ShouXian" type="checkbox" id="ShouXian" value="1"<%if rs("ShouXian")=1 then Response.Write " checked"%>>是否首页显示
<input name="GuLian" type="checkbox" id="GuLian" value="1"<%if rs("GuLian")=1 then Response.Write " checked"%>>是否推荐站点 </td>
<tr class="tr2">
<td align="center">刷量作弊：</td>
<td colspan="5">
<input name="xianshua" type="checkbox" id="xianshua" value="1"<%if rs("xianshua")=1 then Response.Write " checked"%>> 是否使用在线刷量作弊 </td>
</tr>
<tr class="tr2">
<td align="center">网站简称：</td>
<td colspan="5"> <input name="sitename" type="text" id="sitename" value="<%=rs("sitename")%>" size="16" maxlength="12"></td>
</tr>
<tr class="tr2">
<td align="center">网站名称：</td>
<td colspan="5"><input name="siteTitle" type="text" id="siteTitle" value="<%=rs("siteTitle")%>" size="30" maxlength="30"></td>
</tr>
<tr class="tr2">
<td align="center">网站地址：</td>
<td colspan="5"><input name="siteurl" type="text" id="siteurl" value="<%=rs("siteurl")%>" size="50" maxlength="110"></td>
</tr>
<tr class="tr2">
<td align="center">注册时间：</td>
<td width="36%"><input name="dateandtime" type="text" id="dateandtime" value="<%=rs("dateandtime")%>" size="16" maxlength="20"></td>
<td width="12%" align="center">统计时间：</td>
<td width="40%" colspan="3"><input name="fromdate" type="text" id="fromdate" value="<%=rs("fromdate")%>" size="16" maxlength="20"></td>
</tr>
<tr class="tr2">
<td align="center">点入时间：</td>
<td><input type="text" name="indate" size="16" maxlength="10" value="<%=rs("indate")%>"></td>
<td align="center">点出时间：</td>
<td colspan="3"><input type="text" name="outdate" size="16" maxlength="10" value="<%=rs("outdate")%>"></td>
</tr>
<tr class="tr2">
<td align="center">总计点入：</td>
<td><input type="text" name="inc" size="16" maxlength="8" value="<%=rs("inc")%>"></td>
<td align="center">总击点出：</td>
<td colspan="3"><input type="text" name="outc" size="16" maxlength="8" value="<%=rs("outc")%>"></td>
</tr>
<tr class="tr2">
<td align="center">今天点入：</td>
<td><font color="#FF0000">
<input type="text" name="inj" size="16" maxlength="8" value="<%=rs("inj")%>">
</font></td>
<td align="center">今天点出：</td>
<td colspan="3"><font color="#FF0000">
<input type="text" name="outj" size="16" maxlength="8" value="<%=rs("outj")%>">
</font></td>
</tr>
<tr class="tr2">
<td align="center">昨天点入：</td>
<td><input type="text" name="inru" size="16" maxlength="8" value="<%=rs("inru")%>"></td>
<td align="center">昨天点出：</td>
<td colspan="3"><input type="text" name="outchu" size="16" maxlength="8" value="<%=rs("outchu")%>"></td>
</tr>
<tr class="tr2">
<td align="center">平均点入：</td>
<td><input type="text" name="inp" size="16" maxlength="8" value="<%=rs("inp")%>"></td>
<td align="center">平均点出： </td>
<td colspan="3"><input type="text" name="outp" size="16" maxlength="8" value="<%=rs("outp")%>"></td>
</tr>
<tr class="tr2">
<td align="center">无效链入：</td>
<td><input name="WuxIao" type="text" id="WuxIao" value="<%=rs("WuxIao")%>" size="16" maxlength="20"></td>
<td align="center">网站类型： </td>
<td colspan="3"><select name="webtype" size="1">
<%call Wap.listwebtype(rs("webtype"),0)%>
</select></td>
</tr>
<tr class="tr2">
<td align="center">密 码：</td>
<td colspan="5"> <input name="password" type="password" id="password" value="<%=rs("password")%>" size="30" maxlength="12"></td>
</tr>
<tr class="tr2">
<td align="center">密码确认：</td>
<td colspan="5"> <input name="pwdconfirm" type="password" id="pwdconfirm" value="<%=rs("password")%>" size="30" maxlength="12"></td>
</tr>
<tr class="tr2">
<td align="center">网站简介：</td>
<td colspan="5"> <textarea name="siteintro" cols="60" rows="8" id="siteintro"><%=rs("siteintro")%></textarea></td>
</tr>
<tr class="tr2">
<td colspan="6" align="center" class="td"> <input type="submit" value=" 确 定 " name="yes">
<input name="reset" type="reset"
value=" 重 写 "><br/> <br/></td>
</tr>
</table>
</form>
<%end sub%>
</div>
<!--#include file="under.asp"-->
<%set Wap=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -