📄 domsg.asp
字号:
<!--#include file="inc/CONN.asp"-->
<!--#include file="inc/const.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/style.css"-->
<script language=javascript src="inc/js.inc"></script>
<title>留言操作</title>
<script>function showimage(){document.images.tus.src="images/"+document.form.Guestsex.options[document.form.Guestsex.selectedIndex].value+"/"+document.form.GuestFace.options[document.form.GuestFace.selectedIndex].value+".gif";}</script>
</head>
<body <%=skin(13)%>>
<BR>
<%Sub add()%>
<table align=center border=1 bordercolor=<%=skin(11)%> cellpadding=3 cellspacing=0 width="480">
<Form name=form action="savemsg.asp" method=post onsubmit="submitonce(this)">
<tr class=titlestyle>
<td align=center colspan=3><b>签写新留言 带<Font color=<%=skin(8)%>>*</font>为必填</b></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td width=110 align=center><Font color=<%=skin(8)%>>*</font>名字</td>
<td> <Input name=Guestname type=TextBox size=20 maxlength=16></td>
<td width=150 rowspan=5 align=center><img src="images/boy/1.gif" name="tus" title="选择性别和头像来更换"></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center><Font color=<%=skin(8)%>>*</font>性别</td>
<td> <Select name=Guestsex onChange="showimage()"><Option value="boy">男 </option><Option value="girl">女 </option></select> (选择右侧图像性别)</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center><Font color=<%=skin(8)%>>*</font>头像</td>
<td> <Select name=GuestFace onChange="showimage()"><%For i=1 to 8
response.Write "<option value="&i&">face"&i&"</option>"
next%></select> (选择右侧图像表情)</td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>来自</td>
<td> <Input name=GuestAddress type=TextBox size=20 maxlength=8></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center> QQ</td>
<td> <Input name=GuestQQ type=TextBox size=20 maxlength=9 style="ime-mode:disabled" onpaste="return false"></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>信箱</td>
<td colspan=2> <Input name=GuestMail type=TextBox size=40 maxlength=36></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>主页名</td>
<td colspan=2> <Input name=Guesthpgname type=TextBox size=40 maxlength=36></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>主页地址</td>
<td colspan=2> <Input name=Guesturl type=TextBox size=40 maxlength=36></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center valign=top><Font color=<%=skin(8)%>>*</font>留言内容<BR><Br>HTML <Font color=<%=skin(8)%>>×</font><Br>UBB <Font color=<%=skin(8)%>>√</font></td>
<td colspan=2> <textarea name=content rows=11 cols=39></textarea></td>
</tr>
<tr bgcolor=<%=skin(4)%>>
<Td colspan=3 align=center><INPUT name=submit type=submit value=发表> <INPUT name="reset" type=reset value="关闭" title=关闭窗口 onclick="javascript:window.close()"></td>
</tr>
<Input name=userid type=hidden value=<%=request("userid")%>>
<Input name=action type=hidden value=add>
</form>
</table>
<%End sub%>
<%Sub delete()%>
<table align=center border=1 bordercolor=<%=skin(11)%> cellpadding=3 cellspacing=0 width="480">
<Form name=form action="savemsg.asp" method=post onsubmit="submitonce(this)">
<Input name=userid type=hidden value=<%=request("userid")%>>
<Input name=guestid type=hidden value=<%=request("guestid")%>>
<Input name=action type=hidden value="delete">
<tr class=titlestyle>
<td align=center><B>删除留言</B></td>
</tr>
<%Set rs=conn.execute("select username,userpass from [user] where userid ="&cstr(conn.execute("select UserID from Guest where Guestid="&cstr(request("guestid")))(0)))
If request.cookies("satellite")("user") And request.cookies("satellite")("username")=rs(0) then
tempstr="你已经登录，不必再输入密码，点击确认进行删除<Input name=userpass type=hidden value="&rs(1)&">"
else
tempstr="请输入管理密码：<Input name=userpass type=password size=18 maxlength=15>"
End if
rs.close%>
<tr bgcolor=<%=skin(5)%>>
<Td align=center><%=tempstr%></td>
</tr>
<tr bgcolor=<%=skin(4)%>>
<Td align=center> <INPUT name=submit type=submit value="确定"> <INPUT name="reset" type=reset value="关闭" title=关闭窗口 onclick="javascript:window.close()"></td>
</tr>
</form>
</table>
<%End sub%>
<%Sub reply()%>
<table align=center border=1 bordercolor=<%=skin(11)%> cellpadding=3 cellspacing=0 width="480">
<Form name=form action="savemsg.asp" method=post onsubmit="submitonce(this)">
<Input name=userid type=hidden value=<%=request("userid")%>>
<Input name=guestid type=hidden value=<%=request("guestid")%>>
<Input name=action type=hidden value=reply>
<tr class=titlestyle>
<td align=center><B>回复留言</B></td>
</tr>
<%Set rs=conn.execute("select UserID,Content,reply from Guest where Guestid="&cstr(request("guestid")))
tempid=rs(0)
tempcontent=rs(1)
tempreply=rs(2)
rs.close
Set rs=conn.execute("select username,userpass from [user] where userid ="&cstr(tempid))%>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>访客的留言内容(不可修改)：<BR><textarea name=content cols=45 rows=10><%=tempcontent%></textarea></td>
</tr>
<tr bgcolor=<%=skin(5)%>>
<Td align=center>请在下面输入回复内容：<BR><textarea name=reply cols=45 rows=10><%=tempreply%></textarea></td>
</tr>
<%If request.cookies("satellite")("user") And request.cookies("satellite")("username")=rs(0) then
tempstr="你已经登录，不必再输入密码<Input name=userpass type=hidden value="&rs(1)&">"
else
tempstr="请输入管理密码：<Input name=userpass type=password size=18 maxlength=15>"
End if
rs.close%>
<tr bgcolor=<%=skin(5)%>>
<Td align=center><%=tempstr%></td>
</tr>
<tr bgcolor=<%=skin(4)%>>
<Td align=center> <INPUT name=submit type=submit value="确定"> <INPUT name="reset" type=reset value="关闭" title=关闭窗口 onclick="javascript:window.close()"></td>
</tr>
</form>
</table>
<%End sub%>
<%Select Case request("action")
Case "add"
Call add()
Case "delete"
Call delete()
Case "reply"
Call reply()
Case else
response.write "<script language=javascript>alert( ""错误操作！"");"&Chr(13)&"location.href=""javascript:window.close()"";</script>"
response.end
End select%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -