📄 ad_guest.asp
字号:
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rsGuest.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
end sub
'=================================================
'过程名：ShowGuestreply()
'作 用：显示回复留言
'参 数：无
'=================================================
sub ShowGuestreply()
if len(rsGuest("GuestReply")) >0 then
%>
<table width="100%" border="0" cellpadding="1" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td height="1" bgcolor="#B4C9E7"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed">
<tr>
<td><font color="#006633"> 管理员<font color="#FF0000">[<%=rsGuest("GuestReplyAdmin")%>]</font>回复:
<% =rsGuest("GuestReplyDatetime") %>
</font> </td>
</tr>
<tr>
<td valign="bottom"><font color="#006633"><% =KeywordReplace(ubbcode(dvHTMLEncode(rsGuest("GuestReply")))) %></font></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
end sub
'**************************************************
'函数名：KeywordReplace
'作 用：标示搜索关键字
'参 数：strChar-----要转换的字符
'返回值：转换后的字符
'**************************************************
function KeywordReplace(strChar)
if strChar="" then
KeywordReplace=""
else
KeywordReplace= replace(strChar,""&keyword&"","<font color=red>"&keyword&"</font>")
end if
end function
'=================================================
'过程名：WriteGuest()
'作 用：签写留言
'参 数：无
'=================================================
sub WriteGuest()
if SaveEdit<>1 then
WriteType=GuestType
WriteName=LoginName
WriteSex="1"
WriteFace="1"
WriteImages="01"
WriteHomepage="http://"
end if
%>
<script language=JavaScript>
function changeimage()
{
document.formwrite.GuestImages.value=document.formwrite.Image.value;
document.formwrite.showimages.src="<%=GuestPath%>"+document.formwrite.Image.value+".gif";
}
function guestpreview()
{
document.preview.content.value=document.formwrite.GuestContent.value;
var popupWin = window.open('GuestPreview.asp', 'GuestPreview', 'scrollbars=yes,width=620,height=230');
document.preview.submit()
}
function check(thisform)
{
if(thisform.GuestName.value==""){
alert("姓名不能为空！")
thisform.GuestName.focus()
return(false)
}
if(thisform.GuestTitle.value==""){
alert("留言主题不能为空！")
thisform.GuestTitle.focus()
return(false)
}
if(thisform.GuestContent.value==""){
alert("留言内容不能为空！")
thisform.GuestContent.focus()
return(false)
}
if(thisform.GuestContent.value.length>800){
alert("留言内容不能超过800字符！")
thisform.GuestContent.focus()
return(false)
}
if(thisform.reg.checked==true){
if(thisform.psw.value=="" || thisform.psw.value.length<6){
alert("如果注册，注册密码不能为空，且长度至少六位！")
thisform.psw.focus()
return(false)
}
if(thisform.pswc.value=="" || thisform.pswc.value!=thisform.psw.value){
alert("确认密码不能为空，且需与注册密码相同！")
thisform.pswc.focus()
return(false)
}
if(thisform.question.value==""){
alert("密码问题不能为空！")
thisform.question.focus()
return(false)
}
if(thisform.answer.value==""){
alert("问题答案不能为空！")
thisform.answer.focus()
return(false)
}
}
}
function showreginfo(){
if (document.formwrite.reg.checked == true) {
reginfo.style.display = "";
// reginfoshowtext.innerText="暂时不想注册成为贵站会员"
}else{
reginfo.style.display = "none";
// reginfoshowtext.innerText="我想同时注册成为贵站会员"
}
}
function gbcount(message,total,used,remain)
{
var max;
max = total.value;
if (event.keyCode==13 && event.ctrlKey)
formwrite.Submit1.click();
if (message.value.length > max) {
message.value = message.value.substring(0,max);
used.value = max;
remain.value = 0;
alert("留言不能超过 1000 个字!");
}
else {
used.value = message.value.length;
remain.value = max - used.value;
}
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<table width="100%" cellpadding="1" cellspacing="0" class="border">
<tr class="title">
<td colspan="5"> <font color=green><%=PageTitle%></font></td>
</tr>
<tr class="tdbg_leftall">
<td colspan="5" align="center" height="10"></td>
</tr>
<form name="formwrite" method="post" action="<%=strFileName%>?action=savewrite" onSubmit="return check(formwrite)">
<% if WriteType=0 then%>
<tr class="tdbg_leftall">
<td width="20%" align="center">姓 名:</td>
<td width="30%">
<input type="text" name="GuestName" maxlength="14" size="20" value="<%=WriteName%>">
<font color=red>*</font>
</td>
<td width="22%"> </td>
<td colspan="2"> </td>
</tr>
<tr class="tdbg_leftall">
<td align="center">性 别:</td>
<td>
<input type="radio" name="GuestSex" value="1" <% if WriteSex=1 then response.write" checked"%> style="BORDER:0px;">
男
<input type="radio" name="GuestSex" value="0" <% if WriteSex=0 then response.write" checked"%> style="BORDER:0px;">
女 </td>
<td>
<select name="Image" size="1" onChange="changeimage();" >
<%
for i=1 to 9
response.write "<option value='0"&i&"'>0"&i&"</option>"
next
for i=10 to 23
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
</td>
<td colspan="2"> </td>
</tr>
<tr class="tdbg_leftall">
<td align="center">E-mail</td>
<td>
<input type="text" name="GuestEmail" maxlength="30" size="20" value="<%=WriteEmail%>">
</td>
<td rowspan="4">
<input type="hidden" name="GuestImages" value="01">
<img name=showimages src="<%=GuestPath%><%=WriteImages%>.gif" width="80" height="90" border="0" onClick=window.open("guestselect.asp?action=guestimages","face","width=480,height=400,resizable=1,scrollbars=1") title=点击选择头像 style="cursor:hand">
</td>
<td colspan="2" rowspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id=reginfo style="DISPLAY: none">
<tr>
<td width="35%" align="center">注册密码：<br>
</td>
<td>
<input type=password maxlength=16 size=16 name=psw>
</td>
</tr>
<tr>
<td align="center">密码确认：</td>
<td>
<input type=password maxlength=16 size=16 name=pswc>
</td>
</tr>
<tr>
<td align="center">密码问题：</td>
<td>
<input type=text maxlength=30 size=16 name=question>
</td>
</tr>
<tr>
<td align="center">问题答案：</td>
<td>
<input type=text maxlength=30 size=16 name=answer>
</td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">Oicq:</td>
<td>
<input type="text" name="GuestOicq" maxlength="15" size="20" value="<%=WriteOicq%>">
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">Icq:</td>
<td>
<input type="text" name="GuestIcq" maxlength="15" size="20" value="<%=WriteIcq%>">
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">Msn:</td>
<td>
<input type="text" name="GuestMsn" maxlength="40" size="20" value="<%=WriteMsn%>">
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">个人主页:</td>
<td colspan="4">
<input type="text" name="GuestHomepage" maxlength="80" size="37" value="<%=WriteHomepage%>">
<input type="checkbox" name="reg" value="1" onClick=showreginfo() style="BORDER:0px;">
<span id=reginfoshowtext>我想同时注册成为贵站会员</span>
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center"></td>
<td colspan="4"> </td>
</tr>
<%else%>
<tr class="tdbg_leftall">
<td align="center">选择头像：</td>
<td>
<input type="hidden" name="GuestName" value="<%=WriteName%>">
<input type="hidden" name="reg" value="1">
<input type="hidden" name="GuestImages" value="<%=WriteImages%>">
<img name=showimages src="<%=GuestPath%><%=WriteImages%>.gif" width="80" height="90" border="0" onClick=window.open("guestselect.asp?action=guestimages","face","width=480,height=400,resizable=1,scrollbars=1") title=点击选择头像 style="cursor:hand">
<select name="Image" size="1" onChange="changeimage();" >
<%
for i=1 to 9
response.write "<option value='0"&i&"'>0"&i&"</option>"
next
for i=10 to 23
response.write "<option value='"&i&"'>"&i&"</option>"
next
%>
</select>
</td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%end if%>
<tr class="tdbg_leftall">
<td align="center">留言主题:</td>
<td colspan="4">
<input type="text" name="GuestTitle" size="37" maxlength="28" value="<%=WriteTitle%>">
<font color=red>*</font>
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">现在心情:</td>
<td colspan="4">
<%
for i=1 to 20
response.write "<input type=""radio"" name=""GuestFace"" value="&i&""
if i=clng(WriteFace) then response.write " checked"
response.write " style=""BORDER:0px;width:19;"">"
response.write "<img src="""&GuestPath&"face"&i&".gif"" width=""19"" height=""19"">"& vbcrlf
if i mod 10 =0 then response.write "<br>"
next
%>
</td>
</tr>
<tr class="tdbg_leftall">
<td align="center">Ubb标签:</td>
<td colspan="4">
<% call showubb()%>
</td>
</tr>
<tr class="tdbg_leftall">
<td valign="middle" align="center">留言内容: <br>
(Ctrl+Enter提交)</td>
<td colspan="4" valign="top">
<textarea name="GuestContent" cols="59" rows="6" title='按 Ctrl+Enter 可直接发送' onkeydown=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain); onkeyup=gbcount(this.form.GuestContent,this.form.total,this.form.used,this.form.remain);><%=WriteContent%></textarea>
</td>
</tr>
<tr class="tdbg_leftall">
<td valign="middle" align="center"></td>
<td colspan="4" valign="top">
最大字数：<INPUT disabled maxLength=4 name=total size=3 value=500>
已用字数：<INPUT disabled maxLength=4 name=used size=3 value=0>
剩余字数：<INPUT disabled maxLength=4 name=remain size=3 value=500>
</td>
</tr>
<tr class="tdbg_leftall">
<td valign="middle" align="center">是否隐藏：</td>
<td colspan="4" valign="top">
<input type="radio" name="GuestIsPrivate" value="no" checked style="BORDER:0px;">
正常
<input type="radio" name="GuestIsPrivate" value="yes" style="BORDER:0px;">
隐藏 * 选择隐藏后，此留言只有站长才可以看到。</td>
</tr>
<tr class="tdbg_leftall">
<td colspan="5" align="center" height="40">
<input type="hidden" name="saveedit" value="<%=SaveEdit%>">
<input type="hidden" name="saveeditid" value="<%=SaveEditId%>">
<input type="submit" name="Submit1" value=" 发 表" >
<input type="button" name="Submit2" value=" 预 览 " onclick=guestpreview()>
<input type="reset" name="Submit3" value=" 重 填 " >
</td>
</tr>
</form>
<form name=preview action="GuestPreview.asp" method=post target=GuestPreview>
<input type=hidden name=title value=><input type=hidden name=content value=>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="15" align="center" valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" class="tdbg_left2"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -