代码如下：
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function isEmail(strEmail) {
if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
return true;
else
return false;
}
body{margin:0;}
td,p {font-size: 12px;}
form{margin:0;}
a{
color:#000;
font-size:12px;
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #F00;
}
TEXTAREA {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
INPUT {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
.con{padding:10px;line-height:22px;word-break:break-all;word-wrap:break-word;}
function ChkBook(obj)
{
if(obj.UserName.value.Trim()=="")
{
alert("请输入用户名！");
obj.UserName.focus();
return false;
}
if(obj.EMail.value.Trim()=="")
{
alert("请输入电子邮件！");
obj.EMail.focus();
return false;
}
if(!isEmail(obj.EMail.value.Trim()))
{
alert("您输入的电子邮件不正确！");
obj.EMail.focus();
return false;
}
if(obj.Title.value.Trim()=="")
{
alert("请输入留言标题！");
obj.Title.focus();
return false;
}
if(obj.Content.value.Trim()=="")
{
alert("请输入留言内容！");
obj.Content.focus();
return false;
}
}
回复讨论(解决方案)
来位大侠帮帮我呀~~
贴清楚代码啊。。
没看懂上面代码
贴清楚代码啊。。
没看懂上面代码 谢谢关注
原是ASP的一个简单留言板，我是想只引用填写留言这一项，另因为本人不懂这一块，所以属于硬搬的代码，真不好意思，我就是把这里面一部分ASP代码给搬到HTML页里了，这样解释可以么，再次谢谢了，因为这个回复不能太长，我把那个ASP的代码分两次贴下吧。
留言板
String.prototype.Trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function isEmail(strEmail) {
if (strEmail.search(/^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$/) != -1)
return true;
else
return false;
}
body{margin:0; background:#003142;}
td,p {font-size: 12px;}
form{margin:0;}
a{
color:#000;
font-size:12px;
text-decoration: none;
}
a:hover {
text-decoration: underline;
color: #F00;
}
TEXTAREA {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
INPUT {
FONT-SIZE: 12px;
BORDER: #000 1px solid;
}
.con{padding:10px;line-height:22px;word-break:break-all;word-wrap:break-word;}
Call CreConn(Conn)
Action=FormatRequest(1,"Action",1,"")
Select Case Action
Case "Add"
Call Add()
Case "SaveAdd"
Call SaveAdd()
Case "Login"
Call Login()
Case "ChkLogin"
Call ChkLogin()
Case "EditPwd"
Call EditPwd()
Case "SavePwd"
Call SavePwd()
Case "LoginOut"
Call LoginOut()
Case "Reply"
Call Reply()
Case "SaveReply"
Call SaveReply()
Case "Del"
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Page=FormatRequest(1,"Page",0,1)
If Page PSize=10
TbName="Book_List"
GetCol="ID,UserName,Title,Content,AddDate,Reply,HomePage,EMail"
PCol="ID"
SortCol="ID"
StrW="IsShow=True"
CT=""
TCount=Conn.Execute("Select Count(ID) From Book_List Where IsShow=True")(0)
PCount=GetPageCount(TCount,PSize)
If Page>PCount And PCount>0 Then Page=PCount
PIndex=Page
Set Rs=Conn.Execute(GetPageList(TBName,GetCol,PCol,SortCol,1,StrW,PSize,PIndex))
If Not Rs.Eof Then
%>
签写留言 管理登录 修改密码 退出登录
Do While Not Rs.Eof
%>
留言主题
留言者:" target="_blank">
留言时间:
留言内容
")%>
TmpReply=Rs(5)
If Trim(TmpReply) "" Then
%>
管理员回复
If Session("AdUser") "" Then
%>
留言管理
电子邮件:" target="_blank">
&Page= " style="color:#F00">回复留言 &Page= " style="color:#F00">删除留言
Rs.MoveNext
Loop
%>
If PCount>1 Then
Response.Write PageList(3,PCount,Page,CT)
Else
Response.Write "
"
End If
Else
Response.Write "
没有留言
我要签写留言
查看更多关于在HTML里面加入留言板后有时不能点到输入框？求大侠帮忙_html/css_WEB-ITnose的详细内容...