📄 modify.asp
字号:
<!--#INCLUDE FILE="../config.asp" -->
<% Response.Buffer = true %>
<html>
<head>
</head>
<!--#include file="../styles.css" -->
<BODY bgColor=#ffffff class="sft">
<br><br><br>
<%
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs = my_conn.Execute (strSQL)
if (Session("SFAdmin_Name")=rs("SFAdmin_Name")) and (Session("SFAdmin_Password")=rs("SFAdmin_Password")) then
my_conn.Close
set my_Conn = nothing
set rs = nothing
%>
<%
Function ChkString(string)
if string = "" then string = " "
ChkString = Replace(string, "'", "''")
End Function
set rs= Server.CreateObject("ADODB.RecordSet")
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
' ######################################################
Select Case Request.QueryString("mode")
case "users" ' 编辑用户资料
' #############################################################
if Request.form("Name") = "" then%>
<form action="modify.asp?mode=users" method=post>
<table align="center" bgcolor="#333333" border="0" width="300" cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">编辑用户资料</td></tr>
<tr><TD bgcolor="#f7f7f7" width="30%" align="right">用户名</td>
<TD bgcolor="#f7f7f7" width="70%"><INPUT type="text" name="Name" size=20></td></tr>
<td align=center bgcolor="#f7f7f7" colspan=2><INPUT type="submit" value="查找用户"></td></tr>
</table></form>
<%
else
strSql = "Select * from members where M_Name = '" & Request.form("Name") &"'"
rs.Open StrSql, my_conn, 2, 3
if rs.EOF or rs.BOF then
Response.Write "<p align=center>找不到用户:"& Request.form("Name") &"</p>"
Else
%>
<form action="modify.asp?mode=doit&table=users" method=post>
<table align="center" bgcolor="#333333" border="0" width="90%" cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">编辑该用户的个人档案</td></tr>
<tr><TD bgcolor="#f7f7f7" width="30%" align="right">用户名</td>
<TD bgcolor="#f7f7f7" width="70%"><%=rs("M_Name")%></td></tr>
<input name="name" type="hidden" value="<%=rs("M_Name")%>">
<tr bgcolor="#f7f7f7"><TD align="right">用户密码</td>
<TD><INPUT type="text" name="password" value="<%=rs("M_Password")%>" size=20></td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">E-Mail</td>
<TD><INPUT type="text" name="email" value="<%=rs("M_Email")%>" size=25></td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">头衔</td>
<TD><INPUT type="text" name="title" value="<%=rs("M_Title")%>" size=25>(无头衔时为"/")</td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">来自</td>
<TD><INPUT type="text" name="country" value="<%=rs("M_Country")%>" size=30></td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">主页</td>
<TD><INPUT type="text" name="homepage" value="<%=rs("M_HomePage")%>" size=30></td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">QQ号码</td>
<TD><INPUT type="text" name="ICQ" value="<%=rs("M_ICQ")%>" size=20></td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">个性签名</td>
<TD><TEXTAREA rows=4 cols=36 name="sig" wrap="virtual"><%=rs("M_Sig")%></TEXTAREA></td></tr>
<tr bgcolor="#b4609d"><td colspan=2 class="sfh" align="center">操作该用户(请慎重!)</td></tr>
<tr bgcolor="#f7f7f7"><TD align="right">选择</td>
<TD><INPUT type="radio" name="delete" value="no" checked>不进行任何操作<br>
<INPUT type="radio" name="delete" value="closetopic">关闭该用户发表的所有主题<br>
<INPUT type="radio" name="delete" value="deletetopic">删除该用户发表的所有主题或回复<br>
<INPUT type="radio" name="delete" value="deleteuser">删除该用户 (包括删除该用户发表的所有主题或回复)
</td></tr>
<tr><td align=center bgcolor="#f7f7f7" colspan=2>
<input name="id" type="hidden" value="<%=rs("Member_id")%>">
<INPUT type="submit" value="确 定" name=submit1></td></tr>
</table></form>
<%
End if
end if
' ###########################################################
case "category" ' 编辑分类
%>
<script language="javascript">
<!--
function ChangeBox() {
for (var i = 0; i < document.form1.cat.length; i++) {
if (document.form1.cat.options[i].selected == true) {
document.form1.modcat.value = document.form1.cat[i].text;
}
}
return null
}
//-->
</script>
<form action="modify.asp?mode=doit&table=category" method=post name=form1>
<table align="center" bgcolor="#333333" border="0" width="450" cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">修改分类</td></tr>
<TR><TD bgcolor="#f7f7f7" width="30%" align="right">选择分类:</td>
<TD bgcolor="#f7f7f7" width="70%"><select name="cat" onChange="ChangeBox()">
<option>选择分类</option>
<%
StrSql = "SELECT * from category"
rs.Open StrSQl, my_conn, 2, 3
count = 0
if rs.EOF or rs.BOF then
Response.Write "错误:无任何分类!"
Else
do until rs.EOF
count = count + 1
Response.Write "<option value=" & rs("Cat_ID") & ">" & rs("Cat_Name") & "</option>" & vbcrlf
rs.MoveNext
loop
Response.Write "</select>"
End If
%>
</td></tr>
<TR><TD bgcolor="#f7f7f7" align="right">修改为:</td>
<TD bgcolor="#f7f7f7"><INPUT type="text" name="modcat" size=20></td></tr>
<%
if count>1 then
%>
<TR><TD bgcolor="#f7f7f7" align="right">是否删除:</td>
<TD bgcolor="#f7f7f7"><INPUT type="checkbox" value="yes" name="delete">删除该分类 (但不会删除该分类下的论坛)</td></tr>
<%
end if
%>
<TR><TD bgcolor="#f7f7f7" colspan=2 align=center><INPUT type="submit" value="修改分类"></td></tr>
<tr><td bgcolor="#f7f7f7" colspan=2 align="center">注意:至少要有1个分类,当您的论坛中有2个以上分类时才会出现删除功能</td></tr>
</table></form>
<%
' ###########################################################
case "forum" ' 编辑论坛
%>
<form action="forum.asp?mode=show" method=post name=form1>
<input type=hidden value="<%=Request.QueryString("id")%>" name="id">
<table align="center" bgcolor="#333333" border="0" width=300 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor="#b4609d" colspan=2 class="sfh" align="center">修改论坛</td></tr>
<TR><TD bgcolor="#f7f7f7" width="30%" align="right">选择论坛:</td>
<TD bgcolor="#f7f7f7" width="70%"><select name="forum">
<option>选择论坛</option>
<%
StrSql = "SELECT Forum_ID, F_Name from forum"
rs.Open StrSQl, my_conn, 2, 3
if rs.EOF or rs.BOF then
Response.Write "错误!无任何论坛!"
Else
do until rs.EOF
Response.Write "<option value=" & rs("Forum_ID") & ">" & rs("F_Name") & "</option>" & vbcrlf
rs.MoveNext
loop
End If
%>
</select>
</td></tr>
<tr><TD bgcolor="#f7f7f7" colspan=2 align=center><INPUT type="submit" value="确 定" id=submit2 name=submit2></td></tr>
</table>
</form>
<%
case "doit"
Select Case Request.QueryString("table")
case "users"
StrSql = "UPDATE members SET m_password = '" & ChkString(Request.Form("password")) & "', "
StrSql = StrSql & "m_email = '" & ChkString(Request.Form("email")) & "', "
StrSql = StrSql & "m_title = '" & ChkString(Request.Form("title")) & "', "
StrSql = StrSql & "m_country = '" & ChkString(Request.Form("country")) & "', "
StrSql = StrSql & "m_homepage = '" & ChkString(Request.Form("homepage")) & "', "
StrSql = StrSql & "m_ICQ = '" & ChkString(Request.Form("ICQ")) & "', "
StrSql = StrSql & "m_sig = '" & ChkString(Request.Form("sig")) & "' where m_name = '" & ChkString(Request.Form("name")) & "'"
my_conn.Execute StrSql
if Request.Form("delete") <> "no" then
if Request.Form("delete")="closetopic" then
strSql = "Update topics set T_Status = false where topics.T_Originator = " & cint(Request.Form("id"))
my_conn.Execute strSql
end if
if (Request.Form("delete")="deletetopic") or (Request.Form("delete")="deleteuser") then
strSql ="delete * from topics where T_Originator = " & cint(Request.Form("id"))
my_conn.Execute strSql
strSql ="delete * from reply where R_Posted_by = " & cint(Request.Form("id"))
my_conn.Execute strSql
end if
if Request.Form("delete")="deleteuser" then
StrSql = "DELETE * FROM members where member_id = " & cint(Request.Form("id"))
my_conn.Execute StrSql
strSql ="Update totals set totals.U_Count=totals.U_Count - 1"
my_conn.Execute StrSql
end if
end if
Response.Write "<p align=center>更新用户 " & Request.Form("name") & " 成功!" &"</p>"
case "category"
strSql = "UPDATE category SET cat_name = '" & Request.Form("modcat") & "' where cat_id = " & Request.Form("cat")
Response.Write "<p align=center>更新分类 " & Request.Form("name") & " 成功!" &"</p>"
my_conn.Execute StrSql
End Select
End Select
on error resume next
rs.Close
my_conn.Close
set rs = nothing
set my_conn = nothing
%>
<%
else
Response.Write "<P align=center>请正确输入管理员名称和密码!<br><br>"
Response.Write "<a href=""main.asp"">退回</a></p>"
end if%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -