?? 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 + -