Web Front-end
HTML Tutorial
After adding a message board in HTML, sometimes I can't click on the input box? Please help_html/css_WEB-ITnose
After adding a message board in HTML, sometimes I can't click on the input box? Please help_html/css_WEB-ITnose
Jun 24, 2016 pm 12:12 PM
I am a novice. I have just started to learn how to make a website. I call a simple message board in an HTML page, but when it is displayed, some inputs are often unclickable. Please give me some advice.>_>, I am a newbie. No points, please help me.
The code is as follows:
????????????????????
????????????????????
??????????????????????
????????????????????
??????????????????
回復(fù)討論(解決方案)
來位大俠幫幫我呀~~
貼清楚代碼啊。。
沒看懂上面代碼
貼清楚代碼啊。。
沒看懂上面代碼 謝謝關(guān)注
原是ASP的一個(gè)簡(jiǎn)單留言板，我是想只引用填寫留言這一項(xiàng)，另因?yàn)楸救瞬欢@一塊，所以屬于硬搬的代碼，真不好意思，我就是把這里面一部分ASP代碼給搬到HTML頁(yè)里了，這樣解釋可以么，再次謝謝了，因?yàn)檫@個(gè)回復(fù)不能太長(zhǎng)，我把那個(gè)ASP的代碼分兩次貼下吧。
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<=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("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
%>
簽寫留言 <%If Session("AdUser")="" Or IsNull(Session("AdUser")) Then%>管理登錄<%Else%>修改密碼 退出登錄<%End If%>
<%
Do While Not Rs.Eof
%>
留言主題
<%=Rs(2)%>
留言者:<%=Rs(1)%>
留言時(shí)間:<%=Rs(4)%>
留言內(nèi)容
<%=Replace(Left(Rs(3),500),chr(10),"
")%>
<%
TmpReply=Rs(5)
If Trim(TmpReply)<>""?Then
%>
管理員回復(fù)
<%=TmpReply%>
??<%End If
If Session("AdUser")<>""?Then
%>
留言管理
電子郵件:<%=Rs(7)%>
回復(fù)留言 刪除留言
<%End If%>
??<%
Rs.MoveNext
Loop
%>
<%
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()
%>
<%
End Sub
Sub SaveAdd()
UserName=FormatRequest(2,"UserName",1,"")
EMail=FormatRequest( 2,"EMail",1,"")
Title=FormatRequest(2,"Title",1,"")
Content=FormatRequest(2,"Content",1,"")
Conn.Execute("Insert Into Book_List(UserName,Title,Content,EMail,IP) Values('"&UserName&"','"&Title&"','"&Content&"','"&Email&"','"&Get_UserIp() &"')")
Call ShowErrMsg(1,"Message successful! ","index-book.asp")
End Sub
Sub Login()
%>
<%
End Sub
Sub ChkLogin()
UserName=FormatRequest(2,"UserName",1,"")
UserPwd=Md5(Request. Form("UserPwd"))
Set Rs=Conn.Execute("Select UPwd From Ad_List Where UName='"&UserName&"'")
If Not Rs.Eof Then
UPwd=Rs(0)
If UserPwd<>UPwd Then
Call ShowErrMsg(3,"Wrong password! ","")
Else
Session("AdUser")=UserName
Conn.Execute("Update Ad_List Set LoginDate='"&Now()&"',LoginIP='"&Get_UserIp()& "' Where UName='"&UserName&"'")
Call ShowErrMsg(1,"Login successful!","index-book.asp")
End If
Else
Call ShowErrMsg(3 ,"User does not exist!","")
End If
Rs.Close
Set Rs=Nothing
End Sub
Sub EditPwd()
If Session("AdUser" )="" Or IsNull(Session("AdUser")) Then Call ShowErrMsg(3,"Illegal operation!","")
%>
<%
End?Sub
Sub?SavePwd()
If?Session("AdUser")=""?Or?IsNull(Session("AdUser"))?Then?Call?ShowErrMsg(3,"非法操作！","")
OldPwd=Md5(Request.Form("OldPwd"))
NewPwd=Md5(Request.Form("NewPwd"))
Set?Rs=Conn.Execute("Select?UPwd?From?Ad_List?Where?UName='"&Session("AdUser")&"'")
If?Not?Rs.Eof?Then
UPwd=Rs(0)
If?OldPwd<>UPwd?Then
Call?ShowErrMsg(3,"舊密碼錯(cuò)誤！","")
Else
Conn.Execute("Update?Ad_List?Set?UPwd='"&NewPwd&"'?Where?UName='"&Session("AdUser")&"'")
Call?ShowErrMsg(1,"修改成功!","index-book.asp")
End?If
Else
Call?ShowErrMsg(3,"用戶不存在！","")
End?If
Rs.Close
Set?Rs=Nothing
End?Sub
Sub?LoginOut()
Session("AdUser")=""
Call?ShowErrMsg(2,"","index-book.asp")
End?Sub
Sub?Reply()
If?Session("AdUser")=""?Or?IsNull(Session("AdUser"))?Then?Call?ShowErrMsg(3,"非法操作！","")
ID=FormatRequest(1,"ID",0,0)
Page=FormatRequest(1,"Page",0,1)
Set?Rs=Conn.Execute("Select?UserName,Title,Content,AddDate,Reply?From?Book_List?Where?ID="&ID)
If?Rs.Eof?Then?Call?ShowErrMsg(3,"留言不存在！","")
%>
?<%=Rs(1)%>
留言者:<%=Rs(0)%>
留言時(shí)間:<%=Rs(3)%>
")%>
<%
Rs.Close
Set?Rs=Nothing
End?Sub
Sub?SaveReply()
If?Session("AdUser")=""?Or?IsNull(Session("AdUser"))?Then?Call?ShowErrMsg(3,"非法操作！","")
ID=FormatRequest(2,"ID",0,0)
Page=FormatRequest(2,"Page",0,0)
TmpReply=FormatRequest(2,"Reply",1,"")
If?TmpReply=""?Then?Call?ShowErrMsg(3,"請(qǐng)輸入回復(fù)內(nèi)容！","")
Conn.Execute("Update?Book_List?Set?Reply='"&TmpReply&"'?Where?ID="&ID)
Call?ShowErrMsg(1,"回復(fù)成功！","index-book.asp?Page="&Page)
End?Sub
Sub?Del()
ID=FormatRequest(1,"ID",0,0)
Page=FormatRequest(1,"Page",0,0)
Conn.Execute("Delete?From?Book_List?Where?ID="&ID)
Call?ShowErrMsg(1,"刪除成功！","index-book.asp?Page="&Page)
End?Sub
Call?CloConn(Conn)
%>