📄 webinit.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="primary_admin.asp"-->
<!--#include file="HMconnection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>顶级影视 设计维护:QQ:1243619 Email:yakai@163.net</title>
<link rel="stylesheet" type="text/css" href="../style/style.css">
</head>
<%dim action
action=trim(request("action"))
errLogin=trim(request("errLogin"))
'//数据库操作
if action<>"" then%>
<!--#include file="middle_admin.asp"-->
<%select case action
case "errLogin"
conn.execute "delete from errLogin where errLogID in ("&errLogin&")"
response.Redirect "webInit.asp"
response.End
case "filmtype"
dim changRS
set changRS = server.CreateObject("adodb.recordset")
changRS.open "select * from Type where typeid="&request("typeid"),conn,1,3
if not changRS.eof then
changRS("type")=trim(request("type"))
changRS("WebSite")=trim(request("WebSite"))
else
changRS.addnew
changRS("type")=trim(request("type"))
changRS("WebSite")=trim(request("WebSite"))
end if
changRS.update
changRS.close
set changRS=nothing
response.Redirect("webInit.asp")
response.End
case "filmtype2"
dim changRS2
set changRS2 = server.CreateObject("adodb.recordset")
changRS2.open "select * from Type where typeid="&request("typeid"),conn,1,3
if not changRS2.eof then
changRS2("type")=trim(request("type"))
changRS2("WebSite2")=trim(request("WebSite"))
else
changRS2.addnew
changRS2("type")=trim(request("type"))
changRS2("WebSite2")=trim(request("WebSite"))
end if
changRS2.update
changRS2.close
set changRS2=nothing
response.Redirect("webInit.asp?fangshi=netsee")
response.End
case "website"
dim websitRS
set websitRS = server.CreateObject("adodb.recordset")
websitRS.open "select * from WebAddr where webaddrID="&request("webaddrID"),conn,1,3
websitRS("WedAddr")=trim(request("WedAddr"))
websitRS.update
websitRS.close
set websitRS=nothing
response.Redirect("webInit.asp")
response.End
case "ImgeFile"
dim imgfRS
set imgfRS = server.CreateObject("adodb.recordset")
imgfRS.open "select * from imagefile where PicFileID="&request("PicFileID"),conn,1,3
if not imgfRS.eof then
imgfRS("ImgeFile")=trim(request("ImgeFile"))
else
imgfRS.addnew
imgfRS("ImgeFile")=trim(request("ImgeFile"))
imgfRS("filmtype")=trim(request("imageType"))
end if
imgfRS.update
imgfRS.close
set imgfRS=nothing
response.Redirect("webInit.asp")
response.End
case "tiaoyue"
dim tiaoyueRS,regtiaiyue
regtiaiyue=request("regtiaoyue")
regtiaiyue=replace(regtiaiyue," "," ")
set tiaoyueRS = server.CreateObject("adodb.recordset")
tiaoyueRS.open "select * from webconfig where id="&request("id"),conn,1,3
tiaoyueRS("regtiaoyue")=regtiaiyue
tiaoyueRS.update
tiaoyueRS.close
set tiaoyueRS=nothing
response.Redirect("webInit.asp")
response.End
end select
end if
%>
<body>
<table width="80%" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCCCCC" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" background="../images/back_3.gif" rowspan="2"></td>
<td class="12v">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td colspan="4" bgcolor="#0099FF"> <div align="center"><font color="#FFFFFF">网站初始信息修改</font></div></td>
</tr>
<tr>
<td colspan="4" bgcolor="#E8F1FF"> <font color="#0099FF">非法管理员登陆信息：</font></td>
</tr>
<form name="errForm" method="post" action="webInit.asp">
<%dim errLogRS,i
i=1
set errLogRS = server.CreateObject("adodb.recordset")
errLogRS.open "select * from errLogin order by errLoginCount",conn,1,1
do while not errLogRS.eof
%>
<tr bgcolor="#E8F1FF">
<td width="7%"> <%=i%>、 </td>
<td width="20%"> IP： <%=errLogRS("errLoginIP")%></td>
<td width="62%"> 登陆次数： <%=errLogRS("errLoginCount")%> </td>
<td width="11%" align="center"><input type="checkbox" name="errLogin" id="errLogin" value="<%=errLogRS("errLogID")%>">
</td>
</tr>
<% errLogRS.movenext
i=i+1
loop
errLogRS.close
set errLogRS=nothing
%>
<tr>
<td colspan="4" align="center" bgcolor="#E8F1FF">选中所有显示的信息
<input type="checkbox" name="checkAllBox" value="" onClick="CheckAll(this.form);">
<input type="hidden" name="action" id="action" value="errLogin">
<input type="submit" name="Submit" value="删 除" onClick="return test('确认删除吗？');">
</td>
</tr>
</form>
<tr>
<td colspan="4" bgcolor="#E8F1FF"><font color="#0099FF"> 注册条约修改：</font></td>
</tr>
<% dim tiaoRS
set tiaoRS = server.CreateObject("adodb.recordset")
tiaoRS.open "select * from webconfig",conn,1,1
if not tiaoRS.eof then%>
<form action="webInit.asp" method="post" name="tiaoyueForm">
<tr>
<td height="200" colspan="4" align="right" valign="middle" bgcolor="#E8F1FF"><textarea name="regtiaoyue" id="regtiaoyue" cols="60" rows="12"><%=tiaoRS("regtiaoyue")%></textarea>
<input type="hidden" name="action" id="action" value="tiaoyue">
<input type="hidden" name="id" id="id" value="<%=tiaoRS("id")%>">
<input type="submit" name="Submit" value="修 改" onClick="return test('确认修改吗？');">
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -