论坛讨论区http://www.qwbm.com/bangbang 现在开始制作论坛 以下为必须的几个文件 1.数据库(采用access)命名：data.mdb 2.数据库链接文件命名：conn.asp<放在inc文件夹下面> 3.显示帖子的文件(主文件)命名：in阅读全文
论坛讨论区http://www.qwbm.com/bangbang 注册 ↓ 登录 ↓ 发布信息————→只能注册用户才能发布 ↓ 浏览信息———阅读全文
方法如下： MSSQL数据库： SQL="select*from表名where时间/日期字段between'"&传递过来开始的时间值&"'and'"&DateAdd("d",1,""&阅读全文
<% Response.Write"<selectsize=""1""name=""datYear"">" Fori=2005ToYear(Date) Response.Wri阅读全文
<% '****************************** '函数：MoveR(Rstr) '参数：Rstr,以逗号做分隔的数组 '描述：去除数组中重复的项 '示例：MoveR("1,2,2,2,3,3,4,a,45,5,6,6") '********阅读全文
asp统计信息/文章每日、每周、每月、总访问量的方法 <%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="conn.asp"--> <% '阅读全文
<%'删除指定的文件SubDoDelFile(sPathFile)OnErrorResumeNextDimoFSOSetoFSO=Server.CreateObject("Scripting.FileSystemObject")oFSO.DeleteFile(Server.MapPath(sP阅读全文
<%Functiongameimgs(content)SetregEx=NewRegExp'建立正则表达式。regEx.Pattern="(<img)(.[^<>]*)(src=)('|"&CHR(34)&"|)?(.[^'|\s|"&CHR(34)&阅读全文
functionExecReg(re,content)DimmyRegExp,ResultStringSetmyRegExp=NewRegExpmyRegExp.Global=TruemyRegExp.Pattern=reResultString=myRegExp.Replace(content,"阅读全文
<%rem在ASP中实现加密与解密,加密方法:根据RSArem联系:hnsoso@sina.comClassclsRSA PublicPrivateKeyPublicPublicKeyPublicModulus PublicFunctionCrypt(pLngMessage,pLngKey阅读全文
objXmlHttp.open"GET","http://"&request.ServerVariables("HTTP_HOST")&"/index.asp",falseobjXmlHttp.open"GET","http://"&request.ServerVariabl阅读全文
<%content="<!--开始-->这里第一个需要替换的内容<!--结束-->不需要替换的内容<!--开始-->这里第二个需要替换的内容<!--结束-->asdasdasdasdasdasdasdasdas<!--开始-->这里第阅读全文
<%str="<spanstyle='font-size:9pt;font-family:宋体'>中国aaaaaaaaaaaaaaaaaaa深山qwbm.com</span>"FunctionReplaceTest(patrn,str,replStr)DimregEx'阅读全文
asp之自动闭合HTML标签函数 以下为详细代码 Functionclosehtml(strContent) '************************************* '自动闭合html '************************************阅读全文
asp之自动闭合UBB标签函数 以下为详细代码 FunctioncloseUBB(strContent) '************************************* '自动闭合UBB '************************************* 阅读全文
以下是”特殊字符“代码：FunctiongetEnglish(ByValStr)getEnglish=StrgetEnglish=Replace(getEnglish,"中国","china")getEnglish=Replace(getEnglish,"策划","plan")getEn阅读全文
asp当日访问量,全部访问量,当前在线人数统计 <% imgurl="/UploadFiles/demo/num/1/"'图片路径 imgname=""'图片名字 cnt=0 dnt=0 s=Request.ServerVariables("path_translated") c阅读全文
1.新建count.txt文件文档<%response.write"您是本页的第"&counter()&"位访客"functioncounter()whichfile=server.mappath("count.txt")'打开文件并将其值读取，最后关闭连接释放资源setfso阅读全文
苏公网安备 32070502010230号
