📄 admin_edit.asp

📁 发布整站源码可以再开发~ 本人实用中效果嗷嗷滴~
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
	Response.Redirect "Admin_login.asp"
End If
%>
<%
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if

set rs = server.createobject("adodb.recordset")
sql="select SFdata.id,SFdata.name,SFdata.IP,SFdata.daikuan,SFdata.service,SFdata.renshu,SFdata.Sdate,SFdata.addr,SFdata.xingzhi,SFdata.main,SFdata.addname,SFdata.email,SFdata.homepage,SFdata.download,SFdata.addtime,SFdata.hits,SFdata.ulock,SFdata.top,SFdata.gameid,Gametype.game "
sql=sql&" from SFdata,Gametype where SFdata.gameid=gametype.id and SFdata.id="&id
'sql="SELECT * FROM sfdata where id="&id
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
	rs.close
	response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/style.css" rel=stylesheet>
<title><%=webname%></title>
</head>
<BODY text=#000000 link=#000000 leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<TABLE width="780" border=0 align="center" cellPadding=3 cellSpacing=1 bgColor=#000000>
  <FORM name=form1 onsubmit="return check()" action=admin_save.asp method=post>
  <TR>
    <TD class=font2 vAlign=center width="15%" bgColor=#EFEFEF>
      　私服名称：</TD>
      <TD class=font2 width="35%" bgColor=#FFFFFF> 　
        <INPUT name=name 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("name")%>" 
maxLength=14>
      </TD>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　私服IP：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
        <INPUT name=ip id="ip" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("ip")%>" 
maxLength=14>      </TD>
    </TR>
  <TR>
    <TD class=font2 bgColor=#EFEFEF> 　私服类型：</TD>
    <TD class=font2 bgColor=#FFFFFF>　
      <%
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from GameType order by orderid"
rs_type.open sql_type,conn,1,1
%>
      <SELECT id=gameid style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" 
size=1 name=gameid>
        <%
if rs_type.eof and rs_type.bof then
	response.Write "<option value= selected>请添加游戏分类</option>"
else
	do while not rs_type.EOF
		if rs_type("id")=rs("gameid") then
			response.Write "<option value="&rs_type("id")&" selected>"&rs_type("game")&"</option>"
		else
			response.Write "<option value="&rs_type("id")&">"&rs_type("game")&"</option>"
		end if
	rs_type.movenext
	loop
	rs_type.close
end if
%>
      </SELECT></TD>
    <TD class=font2 bgColor=#EFEFEF> 　私服版本：</TD>
    <TD class=font2 bgColor=#FFFFFF>　
      <INPUT name=xingzhi id="xingzhi" style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("xingzhi")%>" 
maxLength=10></TD>
  </TR>
    <TR>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　接入线路：</TD>
      <TD class=font2 width="35%" bgColor=#FFFFFF>　
        
        <SELECT id=addr style="BORDER-RIGHT: #3fc03f 1px solid; BORDER-TOP: #3fc03f 1px solid; BORDER-LEFT: #3fc03f 1px solid; BORDER-BOTTOM: #3fc03f 1px solid" size=1 name=addr>
          <OPTION value=北京 <%if rs("addr")="北京" then response.write "selected" end if%>>北京</OPTION>
          <OPTION value=上海 <%if rs("addr")="上海" then response.write "selected" end if%>>上海</OPTION>
          <OPTION value=重庆 <%if rs("addr")="重庆" then response.write "selected" end if%>>重庆</OPTION>
          <OPTION value=天津 <%if rs("addr")="天津" then response.write "selected" end if%>>天津</OPTION>
          <OPTION value=广东 <%if rs("addr")="广东" then response.write "selected" end if%>>广东</OPTION>
          <OPTION value=河北 <%if rs("addr")="河北" then response.write "selected" end if%>>河北</OPTION>
          <OPTION value=山西 <%if rs("addr")="山西" then response.write "selected" end if%>>山西</OPTION>
          <OPTION value=内蒙古 <%if rs("addr")="内蒙古" then response.write "selected" end if%>>内蒙古</OPTION>
          <OPTION value=辽宁 <%if rs("addr")="辽宁" then response.write "selected" end if%>>辽宁</OPTION>
          <OPTION value=吉林 <%if rs("addr")="吉林" then response.write "selected" end if%>>吉林</OPTION>
          <OPTION value=黑龙江 <%if rs("addr")="黑龙江" then response.write "selected" end if%>>黑龙江</OPTION>
          <OPTION value=江苏 <%if rs("addr")="江苏" then response.write "selected" end if%>>江苏</OPTION>
          <OPTION value=浙江 <%if rs("addr")="浙江" then response.write "selected" end if%>>浙江</OPTION>
          <OPTION value=安徽 <%if rs("addr")="安徽" then response.write "selected" end if%>>安徽</OPTION>
          <OPTION value=福建 <%if rs("addr")="福建" then response.write "selected" end if%>>福建</OPTION>
          <OPTION value=江西 <%if rs("addr")="江西" then response.write "selected" end if%>>江西</OPTION>
          <OPTION value=山东 <%if rs("addr")="山东" then response.write "selected" end if%>>山东</OPTION>
          <OPTION value=河南 <%if rs("addr")="河南" then response.write "selected" end if%>>河南</OPTION>
          <OPTION value=湖北 <%if rs("addr")="湖北" then response.write "selected" end if%>>湖北</OPTION>
          <OPTION value=湖南 <%if rs("addr")="湖南" then response.write "selected" end if%>>湖南</OPTION>
          <OPTION value=广西 <%if rs("addr")="广西" then response.write "selected" end if%>>广西</OPTION>
          <OPTION value=海南 <%if rs("addr")="海南" then response.write "selected" end if%>>海南</OPTION>
          <OPTION value=四川 <%if rs("addr")="四川" then response.write "selected" end if%>>四川</OPTION>
          <OPTION value=贵州 <%if rs("addr")="贵州" then response.write "selected" end if%>>贵州</OPTION>
          <OPTION value=云南 <%if rs("addr")="云南" then response.write "selected" end if%>>云南</OPTION>
          <OPTION value=西藏 <%if rs("addr")="西藏" then response.write "selected" end if%>>西藏</OPTION>
          <OPTION value=陕西 <%if rs("addr")="陕西" then response.write "selected" end if%>>陕西</OPTION>
          <OPTION value=甘肃 <%if rs("addr")="甘肃" then response.write "selected" end if%>>甘肃</OPTION>
          <OPTION value=青海 <%if rs("addr")="青海" then response.write "selected" end if%>>青海</OPTION>
          <OPTION value=宁夏 <%if rs("addr")="宁夏" then response.write "selected" end if%>>宁夏</OPTION>
          <OPTION value=新疆 <%if rs("addr")="新疆" then response.write "selected" end if%>>新疆</OPTION>
          <OPTION value=香港 <%if rs("addr")="香港" then response.write "selected" end if%>>香港</OPTION>
          <OPTION value=澳门 <%if rs("addr")="澳门" then response.write "selected" end if%>>澳门</OPTION>
          <OPTION value=台湾 <%if rs("addr")="台湾" then response.write "selected" end if%>>台湾</OPTION>
          <OPTION value=国外 <%if rs("addr")="国外" then response.write "selected" end if%>>国外</OPTION>
                </SELECT>
        <SELECT id=service 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" 
size=1 name=service>
          <%for i=0 to ubound(split(ssign,","))
response.write "<option value='"&i&"' "
if rs("Service")=i then response.write "selected" end if
response.write ">"&split(ssign,",")(i)&"</option>"
next%>
        </SELECT></TD>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　服务器带宽：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
        <SELECT id=daikuan 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" 
size=1 name=daikuan>
          <%for i=0 to ubound(split(dsign,","))
response.write "<option value='"&i&"' "
if rs("daikuan")=i then response.write "selected" end if
response.write ">"&split(dsign,",")(i)&"</option>"
next%>
        </SELECT></TD>
    </TR>
    <TR>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　开区日期：</TD>
      <TD class=font2 width="35%" bgColor=#FFFFFF>　
      <INPUT name=sdate id="sdate" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("sdate")%>" size="20" 
maxLength=19></TD>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　在线人数：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
        <SELECT id=renshu 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" 
size=1 name=renshu>
          <%for i=0 to ubound(split(rsign,","))
response.write "<option value='"&i&"' "
if rs("renshu")=i then response.write "selected" end if
response.write ">"&split(rsign,",")(i)&"</option>"
next%>
        </SELECT></TD>
    </TR>
    <TR>
      <TD class=font2 bgColor=#EFEFEF> 　主页地址：</TD>
      <TD bgColor=#FFFFFF class=font2>　
      <INPUT name=homepage id="homepage" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("homepage")%>" size="36" 
maxLength=100></TD>
      <TD bgColor=#EFEFEF class=font2> 　登陆器下载：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
      <INPUT name=download id="download" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("download")%>" size="36" 
maxLength=100></TD>
    </TR>
    
  <TR bgColor=#EFEFEF> 
    <TD colSpan=4 class=font2> 
      　私服简介：
    </TD>
    </TR>
    <TR bgColor=#FFFFFF>
      <TD colSpan=4 class=font2>
        <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>
            <TEXTAREA id=main name=main rows=10 cols=110><%=rs("main")%></TEXTAREA></td>
          </tr>
        </table></TD>
    </TR>
    <TR>
      <TD class=font2 bgColor=#EFEFEF> 　联系人：</TD>
      <TD bgColor=#FFFFFF class=font2>　
      <INPUT name=addname id="addname" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("addname")%>" 
maxLength=50></TD>
      <TD bgColor=#EFEFEF class=font2> 　联系方式：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
      <INPUT name=email id="email" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("email")%>" 
maxLength=50></TD>
    </TR>
    <TR>
      
    <TD class=font2 width="15%" bgColor=#EFEFEF>
      　发布日期：</TD>
      <TD bgColor=#FFFFFF class=font2>　
      <INPUT name=addtime id="addtime" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("addtime")%>" size="20" 
maxLength=19></TD>
      
    <TD bgColor=#EFEFEF class=font2>
      　点击率：</TD>
      <TD class=font2 bgColor=#FFFFFF>　
      <INPUT name=hits id="hits" 
style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; BORDER-LEFT: 1px solid; BORDER-BOTTOM: 1px solid" value="<%=rs("hits")%>" size="10" 
maxLength=20></TD>
    </TR>
    <TR>
      <TD class=font2 bgColor=#EFEFEF>　审核状态：</TD>
      <TD bgColor=#FFFFFF class=font2>　<input name="ulock" type="checkbox" id="ulock" value="1" <%if rs("ulock")=1 then response.write "checked"%>></TD>
      <TD bgColor=#EFEFEF class=font2>　固顶状态：</TD>
      <TD class=font2 bgColor=#FFFFFF>　<input name="top" type="checkbox" id="top" value="1" <%if rs("top")=1 then response.write "checked"%>></TD>
    </TR>
    <TR align="center" bgcolor="#FFFFFF">
      <TD colspan="4" class=font2><input name="id" type="hidden" id="id" value="<%=rs("id")%>">
      <INPUT type=submit value=" 编 辑 " name=submit2>
        &nbsp;&nbsp;&nbsp;&nbsp;
      <INPUT type=reset value=" 清 除 " name=cmdcancel>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;[<a href="javascript:history.go(-1);">返回</a>]</TD>
    </TR>
	</form>
</TABLE>
</body>
</html>
<%
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -