ホームページ
ウェブフロントエンド
htmlチュートリアル
HTML で掲示板を追加した後、入力ボックスをクリックできない場合があります。 help_html/css_WEB-ITnose をご覧ください
ウェブフロントエンド
htmlチュートリアル
HTML で掲示板を追加した後、入力ボックスをクリックできない場合があります。 help_html/css_WEB-ITnose をご覧ください
HTML で掲示板を追加した後、入力ボックスをクリックできない場合があります。 help_html/css_WEB-ITnose をご覧ください
HTMLページで簡単な掲示板を作り始めたばかりの初心者ですが、表示される入力欄がクリックできないことがよくあります>_> 、初心者には意味がありません、助けてください。
コードは次のとおりです:
| 在中留言 | |
| 姓 NAM名前： | |
| 联系方式： | |
| 留言主题： | |
| 留言内容： | |
| | |
回论论(解決案)
来位大侠帮我呀~~
贴明確代啊。
上面を見ていない代コード谢谢注
原は ASP の一つの简单留言板です、我是想只引用写留言衹、另因為本人不懂臂这一块，故にハード運搬の代コードに属し，真不好意，我就是此里面一部ASPペイコードは HTML の中に運び込まれており、これを解決して、もう一度再調整することができます。この復元は長くはできないため、その ASP のペイメントを 2 回下に置いています。
<スクリプト言語="javascript">
String.prototype.Trim = function()
{
return this.replace(/(^s*)|(s*$)/g, "");
}
関数 isEmail(strEmail) {
if (strEmail.search(/^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A -Za-z0-9]+)*.[A-Za-z0-9]+$/) != -1)
true を返します。
else
falseを返す;
}
<%
CreConn(Conn) を呼び出す
Action=FormatRequest(1,"Action",1,"")
Case アクションを選択
Case "Add"
Add() を呼び出す
Case "SaveAdd"
SaveAdd() を呼び出す
ケース「ログイン」
Login() を呼び出す
ケース「ChkLogin」
ChkLogin() を呼び出す
ケース「EditPwd」
EditPwd() を呼び出す
ケース「SavePwd」
SavePwd() を呼び出す
ケース「LoginOut」
を呼び出すログインアウト()
Case 「Reply」
Call Reply()
Case 「SaveReply」
Call SaveReply()
Case 「Del」
Call Del()
Case Else
Call Main()
End Select
Sub Main()
Page=FormatRequest (1,"ページ",0,1)
If Page<=0 Then Page=1
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("IsShow=True の Book_List からカウント (ID) を選択します")(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))
Rs.Eof ではない場合
%>
| 签写留言 <%If Session("AdUser")="" Or IsNull(Session("AdUser")) Then%>管理登录<%Else%>修改密码 退出登录<%End If%> | |||
| 留言主题 | <%=Rs(2)%> | 留言者:<%=Rs(1)%> | 留言时间:<%=Rs(4)%> |
| 留言内容 | <%=Replace(Left(Rs(3),500),chr(10)," ")%> | ||
| 管理员回复 | <%=TmpReply%> | ||
| 留言管理 | 电子邮件:<%=Rs(7)%> | 回复留言 删除留言 | |
<%
If PCount>1 Then
Response.Write PageList(3,PCount,Page,CT)
Else
Response.Write "
"
End If
Else
Response.Write ""
End If
End Sub
Sub Add()
%>