|
<%
if request.QueryString("action")="save" then
Dim ErrorMessage
if trim(session("validateCode")) <> trim(Request("txt_check")) then
ErrorMessage = "Please enter right verification code."
response.write(" ")
response.end
end if
%>
<%
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), " ")
fString = Replace(fString, CHR(10), "
")
HTMLEncode2 = fString
end function
dim pos1,pos2,pos3,pos4,notifycontent,pos5,pos6
notifycontent=trim(request.form("newscontent"))
if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from notify",conn,1,3
pos1 = Instr(notifycontent, "url=")
pos2 = Instr(notifycontent, "href=")
pos3 = Instr(notifycontent, "URL=")
pos4 = Instr(notifycontent, "HREF=")
pos5 = Split(notifycontent,"http://")
pos6 = UBound(pos5)
if pos1=0 and pos2=0 and pos3=0 and pos4=0 And pos6<3 then
rs.addnew
rs("newsname")=trim(request.form("newsname"))
rs("addname")=trim(request.form("addname"))
rs("newscontent")=HTMLEncode2(trim(request.form("newscontent")))
rs("tel")=trim(request.form("tel"))
rs("email")=trim(request.form("email"))
rs("adddate")=now()
rs("viewnum")=0
rs.update
response.write ""
response.End
else
response.write ""
response.End
end if
rs.close
set rs=nothing
end If
end if
%>
| SIGN |
Please call(+86)13916806875 or
mail to 13916806875#139.com(Please replace # by @)
if you want to buy the oil-paintings. |
|
|
|
|
| |
| GUESTBOOK |
|
<%
Const MaxPerPage=20
dim totalPut
dim CurrentPage
dim TotalPages,j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
rs.open "select newsid,newsname,addname,newscontent,book,adddate from notify order by adddate desc",conn,1,1
if err.number<>0 then
response.write "数据库中暂时无数据"
end if
if rs.eof And rs.bof then
Response.Write " 您还没有添加留言！ "
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"guestbook.asp"
else
if (currentPage-1)*MaxPerPage
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write " |
|