asp
ziying
这个作者很懒,什么都没留下…
展开
-
三级联动菜单
dim bid,cid bid = request("bid") bid 大类id cid = request("cid") cid 中类id if bid="" then bid="1" end if if cid="" then cid="1" end if set rs=server.createobje原创 2004-08-13 17:55:00 · 1678 阅读 · 4 评论 -
asp数据库连接
asp数据库连接set conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=127.0.0.1;Initial Catalog=testdb;User Id=sa;Password=;"Conn.Open "Data PROV原创 2004-11-16 09:55:00 · 1963 阅读 · 0 评论 -
email验证
function IsValidEmail(email) dim names, name, i, c IsValidEmail = true names = Split(email, "@") if UBound(names) IsValidEmail = false exit function end if for each name in names if Len(name)原创 2004-11-17 16:13:00 · 1277 阅读 · 0 评论 -
fsodemo
fsodemo.aspdim StrStr = "fso demo 1.."Str = Str&"fso demo 2.."Set fso= CreateObject("Scripting.FileSystemObject")set fs=fso.CreateTextFile(server.mappath("New.html"), True)fs.writeline Strset fs=n原创 2004-11-13 10:37:00 · 825 阅读 · 0 评论 -
语音上传(二)
表 sound 字段 id numeric 9 (自增) wav image 16 wavinfo varchar 50 wavsize numeric save.asp 将声音文件写入数据库Response.expires=0Server.ScriptTimeout =3600 call main()sub main() FormSi原创 2004-09-06 17:17:00 · 838 阅读 · 0 评论 -
语音上传(一)
function openScript(url, width, height){ var Win = window.open(url,"openScript",width= + width + ,height= + height + ,resizable=1,scrollbars=yes,menubar=no,status=yes );}原创 2004-09-06 17:07:00 · 1158 阅读 · 0 评论 -
write user's ip
ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If ip = "" Then ip = Request.ServerVariables("REMOTE_ADDR") ip= Request.ServerVariables("REMOTE_ADDR") response.Write(ip) %> Set原创 2004-09-06 17:02:00 · 783 阅读 · 0 评论 -
asp get data from xml
Dim xmlSet xml = Server.CreateObject("Microsoft.XMLDOM")xml.async = Falsexml.load (Server.MapPath("xmldemo1.xml"))Dim fText1, fText2fText1 = xml.documentElement.childNodes(0).textfText2 = xml.document原创 2004-08-23 10:32:00 · 830 阅读 · 0 评论 -
语音上传(三)
wav.asp 读取数据 set conn=server.CreateObject("adodb.connection") connstr="Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=database;Data source=127.0.0.1;pwd=" conn.op原创 2004-09-06 17:26:00 · 917 阅读 · 0 评论 -
多列显示
Set rs= Server.CreateObject("ADODB.Recordset") rs.open "select * from btype order by id asc",conn,1,1原创 2004-09-06 17:00:00 · 780 阅读 · 0 评论 -
Limit Title Character...
Function neatTrim( strToTrim, desiredLength )strToTrim = trim( strToTrim )if len( strToTrim ) neatTrim = strToTrimexit functionelseif inStrRev( strToTrim, " ", desiredLength ) = 0 thenstrT原创 2004-08-20 11:01:00 · 952 阅读 · 0 评论 -
asp分页
asp分页 +日记 +心情日记 日期 标题 保密原创 2004-11-16 10:13:00 · 1126 阅读 · 0 评论