📄 post.asp
字号:
<!--#include file="../../forum/admin/common-admin.asp"-->
<!---all common functions and definisions--->
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
<!--Metadata type="typelib" File="c:\program files\common files\system\ado\msado15.dll" -->
</SCRIPT>
<!----- see the readme.txt about those lines !!! ------>
<%
dim useraction,fid,action,id,tid,mailme
dim mesbody,name,subject
dim sql_maxid,rs_maxid,maxid
fid=request("fid")
id=request("id")
tid=request("tid")
if cint(session("status"))<>cint(fid) or session("status")="" then
response.redirect "error.htm"
end if
if id="" then
action="post.asp?action=save"
else
action="post.asp?action=replay"
end if
userAction=request("action")
'response.write useraction
select case userAction
case "save"
call connect()
sql="select * from mestbl"
RS.Open sql, Conn, 3, adLockOptimistic
mesbody=request.form("message")
name=request.form("name")
name = "**" & name & "**"
subject=request.form("subject")
mailme=request.form("mailme")
rs.addnew
rs("name")=name
rs("subject")=subject
rs("email")=request.form("email")
rs("mesdate")=now()
rs("mesbody")=mesbody
rs("thread_parent")=0
rs("thread_id")=0
rs("forumID")=request.form("fid")
rs("isChecked")=mailme
rs.update
call close()
response.redirect "../list.asp?fid="&fid
end select
dim requireFldSign
requireFldSign="<font color='red'>*</font>"
response.write "<HTML><HEAD><link rel='stylesheet' href='style.css'>"
%>
<script language="javascript">
function submitit(){
var name=document.myform.name.value;
var subject=document.myform.subject.value;
var email=document.myform.email.value;
if (name==""){
alert("type your name")
document.myform.name.focus()
return false
}
if (subject==""){
alert("Type a subject")
document.myform.subject.focus()
return false
}
if (email!=""){
if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){
alert("invalid email address");
document.myform.email.focus()
return false
}
}
}
</script>
<%
response.write "<TITLE>Forum Messages</TITLE></HEAD><body>"
response.write "<table border=0 width=600 cellpadding=0 cellspacing=0>"
response.write "<tr><td width=100>"
response.write "<b>Post message as forum manager</b><br><br></tr></td>"
response.write "<form name='myform' action='" &action & "' method='post' onsubmit='return submitit()'>"
response.write "<input type=hidden name='fid' value='"&fid&"'>"
response.write "<input type=hidden name='id' value='"&id&"'>"
response.write "<input type=hidden name='tid' value='"&tid&"'>"
response.write "<tr><td width=100>"
response.write requireFldSign & "Name:</td><td><input type='text' name='name' maxlength='20' size=23 value='forum manager'></tr></td>"
response.write "<tr><td>"
response.write "Email:</td><td><input type='text' name='email' maxlength='28' size=23></tr></td>"
response.write "<tr><td>"
response.write requireFldSign & "Subject:</td><td><input type='text' name='subject' maxlength='25' size=23></tr></td>"
response.write "<tr><td valign=top>"
response.write "Message:</td><td><textarea cols=25 rows=8 name='message' maxlength='20' size=23 wrap='virtual'></textarea></tr></td>"
response.write "<tr><td colspan=2><br>"
response.write "<input type='checkbox' name='mailme' value='1'>"
response.write "E-mail me when someone posts a new message in this thread.</tr></td>"
response.write "<tr><td colspan=2><br>"
response.write "<input type='submit' name='submit' value='Post Message'> "
response.write "<input type='reset' name='reset' value='Reset'>"
response.write "</form>"
response.write "</tr></td></table></body></html>"
response.write "<table border=0 width=600 cellpadding=0 cellspacing=0><tr><td>"
call footer()
response.write "</tr></td></table>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -