retopic.asp

来自「教师评估系统」· ASP 代码 · 共 14 行

<!-- #include file="Cls.asp" -->
<!-- #include file="Inc/MD5.asp" -->
<!-- #include file="Inc/UBBPost.asp" -->
<%
top "回复帖子",True
AddNewUser=0
if Request("VisitorName")<>empty and Not IsUser then

UserName=Request("VisitorName")

if Cache("CloseRegUser") Or Cache("CloseVisitorRe") then Error2("本论坛暂不开放游客发帖")
if Len(UserName)>16 then Error2("昵称不能超过16个字")

Errorchar=array("　","