JMail.SimpleLayout = true JMail.Body = MailBody JMail.Priority = 3 JMail.AddRecipient Email JMail.AddHeader "Originating-IP", GBL_IPAddress If JMail.Execute() = false Then SendJmail = 0 Else SendJmail = 1 End If JMail.Close Set JMail = Nothing
End Function
'分页 Function listPages(LinkFile) if not (rs.eof and rs.bof) then gopage=currentpage totalpage=n blockPage=Int((gopage-1)/10)*10+1 ' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then ' pos=instr(linkfile,"page=")-2 ' linkfile=left(linkfile,pos) ' end if
If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" End If strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME")) If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT")) strTemp = strTemp & CheckStr(Request.ServerVariables("URL")) lenstrTemp=len(strTemp)+1 if instr(left(linkfile,lenstrTemp),"?")>0 then
if blockPage = 1 Then Response.Write "<span disabled>【←前10页</span> " Else Response.Write("<span disabled>【</span><a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a> ") End If i=1 Do Until i > 10 or blockPage > n If blockPage=int(gopage) Then Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>") Else Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ") End If blockPage=blockPage+1 i = i + 1 Loop if blockPage > totalpage Then Response.Write " <span disabled>后10页→】"
精品推荐