📄 default.asp
字号:
</font> </td>
<td width="334">
<font >
<input type="radio" name="Icon" value="1" CHECKED>
<img src="grafx/icon1.gif" width="15" height="15">
<input type="radio" name="Icon" value="2">
<img src="grafx/icon2.gif" width="15" height="15">
<input type="radio" name="Icon" value="3">
<img src="grafx/icon3.gif" width="15" height="15">
<input type="radio" name="Icon" value="4">
<img src="grafx/icon4.gif" width="15" height="15">
<input type="radio" name="Icon" value="5">
<img src="grafx/icon5.gif" width="15" height="15">
<input type="radio" name="Icon" value="6">
<img src="grafx/icon6.gif" width="15" height="15">
<input type="radio" name="Icon" value="7">
<img src="grafx/icon7.gif" width="15" height="15"> <br>
<input type="radio" name="Icon" value="8">
<img src="grafx/icon8.gif" width="15" height="15">
<input type="radio" name="Icon" value="9">
<img src="grafx/icon9.gif" width="15" height="15">
<input type="radio" name="Icon" value="10">
<b><img src="grafx/icon10.gif" width="15" height="15"></b>
<input type="radio" name="Icon" value="11">
<img src="grafx/icon11.gif" width="15" height="15">
<input type="radio" name="Icon" value="12">
<img src="grafx/icon12.gif" width="15" height="15">
<input type="radio" name="Icon" value="13">
<img src="grafx/icon13.gif" width="15" height="15">
<input type="radio" name="Icon" value="14">
<img src="grafx/icon14.gif" width="15" height="15"> <br>
<input type="radio" name="Icon" value="15">
<img src="grafx/icon15.gif" width="15" height="15">
<input type="radio" name="Icon" value="16">
<img src="grafx/icon16.gif" width="15" height="15">
<input type="radio" name="Icon" value="17">
<img src="grafx/icon17.gif" width="15" height="15">
<input type="radio" name="Icon" value="18">
<img src="grafx/icon18.gif" width="15" height="15">
<input type="radio" name="Icon" value="19">
<img src="grafx/icon19.gif" width="15" height="15">
<input type="radio" name="Icon" value="20">
<img src="grafx/icon20.gif" width="15" height="15">
<input type="radio" name="Icon" value="21">
<img src="grafx/icon21.gif" width="15" height="15"> <br>
<input type="radio" name="Icon" value="22">
<img src="grafx/icon22.gif" width="15" height="15">
<input type="radio" name="Icon" value="23">
<img src="grafx/icon23.gif" width="15" height="15">
<input type="radio" name="Icon" value="24">
<img src="grafx/icon24.gif" width="15" height="15">
<input type="radio" name="Icon" value="25">
<img src="grafx/icon25.gif" width="15" height="15">
<input type="radio" name="Icon" value="26">
<img src="grafx/icon26.gif" width="15" height="15">
<input type="radio" name="Icon" value="27">
<img src="grafx/icon27.gif" width="15" height="15">
<input type="radio" name="Icon" value="28">
<img src="grafx/icon28.gif" width="15" height="15"> </font> </td>
</tr>
</table>
<font size="1">内容:</font><font > <br>
<textarea name="text" cols="60" rows="10"> </textarea>
<br>
<br>
<input type="submit" name="Submit2" value="Post">
</form>
</font>
</td>
</tr>
</table>
<font >
<% End IF %>
<% If Request.Querystring("action") = "replyit" then %>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB Where ID=" & Request.qUERYSTRINg("thread"))
datum = Now()
if Session("Username") <> "" then username = Session("Username")
If session("Username") = "" then username = request.form("username")
text = request.form("text")
password = request.form("password")
subject = "RE: " & rsQuery("subject")
ip = Request.ServerVariables("REMOTE_ADDR")
icon = request.form("icon")
text = Replace(text, "'", "''")
if Session("Username") = "" then username = replace(username, "[", "")
If Session("Username") = "" then username = replace(username, "]", "")
If Session("Username") <> "" then
'set Con = server.createobject("adodb.connection")
'DSNtemp="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open DSNtemp
SQLstmt = "INSERT INTO messageDB (poster,subject,message, ip, icon, replyid, userid)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & username & "',"
SQLstmt = SQLstmt & "'" & subject & "',"
SQLstmt = SQLstmt & "'" & text & "',"
SQLstmt = SQLstmt & "'" & ip & "',"
SQLstmt = SQLstmt & "'" & icon & "',"
SQLstmt = SQLstmt & "'" & request.querystring("thread") & "',"
SQLstmt = SQLstmt & "'" & session("id") & "'"
SQLstmt = SQLstmt & ")"
Set RS = Con.execute(SQLstmt)
End If
If Session("Username") = "" then
'set Con = server.createobject("adodb.connection")
'DSNtemp="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=board"
'Con.Open DSNtemp
SQLstmt = "INSERT INTO messageDB (poster,subject,message, ip, icon, replyid)"
SQLstmt = SQLstmt & " VALUES ("
SQLstmt = SQLstmt & "'" & username & "',"
SQLstmt = SQLstmt & "'" & subject & "',"
SQLstmt = SQLstmt & "'" & text & "',"
SQLstmt = SQLstmt & "'" & ip & "',"
SQLstmt = SQLstmt & "'" & icon & "',"
SQLstmt = SQLstmt & "'" & request.querystring("thread") & "'"
SQLstmt = SQLstmt & ")"
Set RS = Con.execute(SQLstmt)
End If
set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & Request.Querystring("thread"))
temp = rsQuery("replies")
temp = temp + 1
'Con.Execute "UPDATE ForumDB SET [Threads]=" & temp & " WHERE ID =" & Request.Querystring("thread")
'Con.Execute "UPDATE UserDB SET [Name]='" & strName & "', [Password]='" & strPassword & "', Email='" & strEmail & "', Signature='" & strSR") & "' WHERE [Username]='" & Mid(Session("Username"),2,Len(Session("Username")) -2) & "'"
set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & Request.Querystring("thread"))
temp = rsQuery("Replies")
temp = temp + 1
response.write "UPDATE MessageDB Set [Replies]=" & temp & " WHERE ID=" & Request.Querystring("thread")
Con.Execute "UPDATE MessageDB Set [Replies]=" & temp & " WHERE ID=" & Request.Querystring("thread")
%>
<br>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td align="center"><font size="1">文章回复完成. 单击 <a href="default.asp?forum=<% Response.Write Request.Querystring("forum") %>&thread=&action=view">
proceed</a> 继续.</font></td>
</tr>
<% End If %>
</table>
<font >
<br>
<% If Request.Querystring("action") = "kill" then %>
<%
sqlstmt = "DELETE from MessageDB WHERE ID=" & Request.Querystring("what")
'response.write sqlstmt
Set RS = Con.execute(sqlstmt)
what = Request.Querystring("forum")
if request.querystring("thread")<>Request.Querystring("what") then
if request.querystring("thread") = "" then
Set rsQuery = Con.Execute("SELECT * FROM ForumDB WHERE ID=" & what )
temp = rsQuery("Threads")
temp = temp - 1
end if
if request.querystring("thread") <> "" then
set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & Request.Querystring("thread") & "")
response.write "SELECT * FROM MessageDB WHERE ID=" & Request.Querystring("thread") & ""
temp = rsQuery("Replies")
temp = temp - 1
end if
if request.querystring("thread") = "" then Con.Execute "UPDATE ForumDB SET [Threads]='" & temp & "' WHERE ID=" & what
if request.querystring("thread") <> "" then Con.Execute "UPDATE MessageDB SET [Replies]='" & temp & "' WHERE ID=" & Request.Querystring("thread")
else
con.Execute "update ForumDB set threads=threads-1 where id=" & what
con.Execute "delete from MessageDB where replyid=" & Request.Querystring("thread")
end if
%>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td align="center"><font size="1">文章被删除 . 单击 <a href="default.asp?forum=<% Response.Write Request.Querystring("forum") %>&thread=&action=view">
proceed</a>
继续.</font></td>
</tr>
<% End If %>
</table>
<font >
<% If Request.Querystring("action") = "profile" then %>
<% If Request.Form("submit3") = "" then %>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000">
<tr>
<td bgcolor="#999999"><font size="1">My Profile </font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" valign="top">
<font >
<% Set rsQuery = Con.Execute("SELECT * FROM userDB WHERE ID=" & Session("USERID") & "") %>
</font>
<form name="form4" method="post" action="">
<font size="1">用户名:
<% Response.Write rsQuery("Username") %>
<br>
姓名: <% Response.Write rsQUery("Name") %>
</font> <font > <br>
<font size="1">生日</font></font><font size="1">: <% Response.Write rsQuery("age") %>
</font><font ><br>
<font size="1">密码</font></font><font size="1">:</font><font >
<input type="password" name="txtPassword" value="<% Response.Write rsQuery("Password") %>">
<br>
<font size="1">爱好</font></font><font size="1">:</font><font >
<input type="text" name="hobby" value="<% Response.Write rsQuery("Hobby") %>">
<br>
<font size="1">签名</font></font><font size="1">:</font><font>
<input type="text" name="txtSignature" value="<% Response.Write rsQuery("Signature") %>">
<br>
</font>
<font size="1">Email:</font><font ><input type="text" name="txtEmail" value="<% Response.Write rsQuery("Email") %>">
<br>
</font>
<font size="1">OICQ:</font><font >
<input type="text" name="txtICQ" value="<% Response.Write rsQuery("icq") %>">
<br>
<font size="1">图片</font></font><font size="1">: </font><font ><input type="text" name="txtPicture" value="<% Response.Write rsQuery("Photo") %>">
<br>
<font size="1">国籍</font></font><font size="1">: </font><font ><input type="text" name="txtCountry" value="<% Response.Write rsQuery("Country") %>">
<br>
<br>
<input type="submit" name="Submit3" value="保存">
<br>
<br>
<br>
</font>
</form>
</td>
</tr>
</table>
<font >
<% End If %>
<% End If %>
<%
on error resume next
picture = request.form("submit3")
If Request.Form("Submit3") <> "" then picture="grafx/none.gif"
if request.form("txtpicture") = "" then
if request.querystring("action") = "profile" then
Con.Execute "UPDATE UserDB SET [Password]='" & request.form("txtpassword") & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [Hobby]='" & request.form("hobby") & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [Signature]='" & request.form("txtsignature") & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [Email]='" & request.form("txtemail") & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [ICQ]='" & request.form("txticq") & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [Photo]='" & picture & "' WHERE ID=" & Session("USERID")
Con.Execute "UPDATE UserDB SET [Country]='" & request.form("txtcountry") & "' WHERE ID=" & Session("USERID")
%>
</font>
<table width="600" border="1" cellspacing="0" cellpadding="1" bordercolor="#000000" bgcolor="#CCCCCC">
<tr>
<td align="center"><font size="1">你的个人信息已经被提交. 单击 <a href="default.asp?forum=<% Response.Write Request.Querystring("forum") %>&thread=&action=view">
proceed</a>
继续.</font></td>
</tr>
<% End If %>
</table>
<font >
<%
End If
%>
</font>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -