当前位置：网站首页 >> 建站知识 >> 网站技术 >>


网站制作中几个很有用的功能实现代码(一)

来源：郑州凯讯网站    发布人：郑州凯讯公司    发布日期：2014-06-16

在郑州网站制作的程序编码时，我们有时候需要在网页上实现一些技巧性代码。在这里，郑州网站制作为各位整理了一些特殊功能的技术实现代码，可供各位技术人员在制作网页的程序编码时参考使用。

一、在网站制作时，网页上的ASP判断用户来路的的程序代码：
<%
url=request.ServerVariables("HTTP_REFERER")

if url<>"" then
response.write(url)
else
response.write("本次打开网页无来路")
endif
%>

如果打开的网页是从http://www.kxcom.net网站上转向或链接过去的，那么在打开网页执行本代码后，界面上将显示来路网页地址为：http://www.kxcom.net/

二、在网站制作时，使用ASP链接SQL Server数据库并执行查询的代码：
<%
Dim DbServerName, DbName, DbUserID, DbPassword
Dim conn

DbName = "user_db"
DbServerName = "192.168.0.100"
DbUserID = "zzkx"
DbPassword = "123456"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={SQL Server};SERVER=" & DbServerName & ";UID=" & DbUserID & "; PWD=" & DbPassword &";database="&DbName

set rs=Server.CreateObject("ADODB.RecordSet")

sql="select 用户姓名 from user_info where 客户账号=122"
rs.open sql,conn,1,3

username=""

if not rs.eof then
username=rs("用户姓名")
response.write(username)
end if

rs.close
set rs=nothing

conn.close
set conn = nothing
%>

三、网站制作中，可能需要在网站上加上发送验证码短信给用户的功能，在这里郑州网站制作将发送验证码短信的代码在下面列出来，供参考。

<%
dim username,password,batch,mobilelist,msgcontent

username="test"
password="123456"
mobiles="15333818157"
content="你好，您本次的验证码为736792，请在1分钟内输入进行验证，超过1分钟后请重新获取手机验证码。"

dim xmlhttp,retstr

set xmlhttp=Server.createobject("Microsoft.XMLHTTP")

xmlhttp.open "GET","http://192.168.0.111:8080/send.asp?username="&Server.URLEncode(username)&"&password="&
Server.URLEncode(password)&"&sendtime=&mobiles="&mobiles&"&content="&Server.URLEncode(content)&"",false

xmlhttp.setRequestHeader "Content-type:", "text/xml;charset=GB2312"
xmlhttp.send

retstr=urldecode(xmlhttp.ResponseText)

set xmlhttp=nothing

response.write("发送短信结果:")
response.write(retstr)
response.end()

%>

四、在网站制作中，使用ASP代码实现读取文本文件内容那个，并显示在网页上的代码：

<%
on error resume next
dim fs
dim f
set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("mingdan.txt"), 1)
txtstr=f.ReadAll
f.Close
set f=Nothing
set fs=nothing
response.Write(alltxt)
%>