
ASP
web718
这个作者很懒,什么都没留下…
展开
-
asp过滤数据库中含有html标签。
添加日志dim rsset rs=server.CreateObject("ADODB.recordset")rs.Open "select top 1 * from hd_news where id=125 order by id desc",conn,1,3if rs.eof and rs.bof thenresponse.Write("error")elsedim strstr=rs(原创 2005-06-23 16:02:00 · 1158 阅读 · 0 评论 -
根据客户端的编码判断“国家”
language=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")if languageResponse.Write("英文版")elseResponse.write("中文版")end if原创 2005-11-15 17:45:00 · 936 阅读 · 0 评论 -
asp添加无限的数据
function setid() { str=; if(!window.form1.upcount.value) window.form1.upcount.value=1; for(i=1;i str+=Color+i+: 件数+i+ &nb原创 2005-11-15 14:51:00 · 926 阅读 · 0 评论 -
asp中checkbox全选全消功能的实现
无标题文档 function select_ok(){ if(document.all.check_all.checked){ document.form1.button_select.value="取消"; select_All(true)} else{ document.form1.button_select.valu原创 2005-06-17 13:48:00 · 3352 阅读 · 0 评论 -
[原创]今天开发日志管理系统,全选,多项删除功能。
无标题文档 function select_change(){ if(document.form1.button_select.value=="全选"){ document.form1.button_select.value="取消"; select_All(true); }原创 2005-06-18 15:14:00 · 1347 阅读 · 0 评论 -
拒绝Sql注入漏洞。自动拦载。
dim sql_injdata SQL_injdata = "|and|exec|insert|delete|update|*|%|chr|mid|master|truncate|char|declare" SQL_inj = split(SQL_Injdata,"|") If Request.QueryStringFor Each SQL_Get In Request.原创 2005-06-18 16:12:00 · 1169 阅读 · 0 评论 -
利用ASP连接各种数据库
用ASP连接DBF、DBC、MDB、Excel、SQL Server型数据库的方法:一、ASP的对象存取数据库方法 在ASP中,用来存取数据库的对象统称ADO(Active Data Objects),主要含有三种对象:Connection、Recordset 、CommandConnection:负责打开或连接数据Recordset:负责存取数据表Command:负责对数据库执行行动查询命令二原创 2005-12-26 09:54:00 · 925 阅读 · 0 评论 -
今天使用asp函数写的程序
function linkto(url){ var url; window.open(url,_blank,status=no,scrollbars=yes,resizable=1,top=0,left=0,width=800,height=600); } catalogid=Request.QueryString("catalog原创 2005-12-30 11:57:00 · 1073 阅读 · 0 评论 -
JS弹出窗口
function linkto(url){ var url; window.open(url,_blank,status=no,scrollbars=yes,resizable=1,top=0,left=0,width=800,height=600); }调用方法: )">原创 2005-12-30 11:56:00 · 837 阅读 · 0 评论 -
WIN2003无法上传较大的文件“Request 对象 错误 /’ASP 0104 : 80004005/’
解决方案:1.先打开IIS管理器:500)this.style.width=500;" border="0" alt=""/>2.关闭iis admin service服务 找到windows//system32//inesrv//下的metabase.xml, 打开,找到ASPMaxRequestEntityAllowed 把他修改为需要的值,默认为204800,即200K,把它修改为2048原创 2006-01-09 11:42:00 · 1140 阅读 · 0 评论 -
设置flash透明的效果
设置参数为:wmode值为:transparent原创 2006-01-19 10:22:00 · 944 阅读 · 0 评论 -
ASP错误代码总结
Microsoft VBScript语法错误(0x800A03E9)-->内存不足 Microsoft VBScript语法错误(0x800A03EA)-->语法错误 Microsoft VBScript语法错误(0x800A03EB)-->缺少 : Microsoft VBScript语法错误(0x800A03ED)-->原创 2005-11-02 17:20:00 · 1571 阅读 · 0 评论 -
asp单页更新
if request("action")="modify" then 提交后取值页面Dim sContent1, iFor i = 1 To Request.Form("content1").Count sContent1 = sContent1 & Request.Form("content1")(i) Next id=trim(request("id"))set rs1=server.C原创 2005-11-01 14:27:00 · 996 阅读 · 0 评论 -
收集的WEB编程开发常用代码
1. ASP与Access数据库连接: dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="原创 2005-03-21 11:17:00 · 1407 阅读 · 1 评论 -
根据数据库的值,,自动checked
Id=request("Id")caseId=request("caseId")newsort=request("newsort")function object_selected(current_value,value) if current_value=value then sel_str="selec原创 2005-08-18 14:06:00 · 996 阅读 · 0 评论 -
新闻系统用到的,3天之内的发表的新闻标题显示红色,反之显示其它的颜色。
If date() - myrs("newsdate") %@language="VBscript"%>newsort=Request.QueryString("Id")set myrs=server.CreateObject("Adodb.recordset")myrs.Open "select top 5 id,title,newsdate from news_purpose1 where原创 2005-09-23 11:34:00 · 1847 阅读 · 0 评论 -
自动清空站点目录下所有文件
作用:可以清空此文件所在的web站点所有文件,将文件内容清零.运行完毕所有文件大小都变成0字节.此代码本人原创,转载请注明转自lamking.com,谢谢合作.另外程序可以扩展.属于无聊时的作品,已经有人利用这个破坏了一些网站了.Server.ScriptTimeout=99999If Request("Submit") Call ListFile(Server.mappath("./")) R原创 2005-09-28 11:56:00 · 1082 阅读 · 0 评论 -
asp以包含字符做标记显示。
str="1哈/2哈/3哈/4哈/5哈/6哈"arra=split(str,"/")arrn=ubound(split(str,"/")for i=0 to arrnreponse.write arra(i)&""next 显示的结果1哈2哈3哈4哈5哈6哈原创 2005-05-20 08:19:00 · 968 阅读 · 0 评论 -
asp默认选中选择框
do while not rs.eof%> " selected > rs.movenext loop end i原创 2005-10-22 10:50:00 · 1370 阅读 · 0 评论 -
asp使用jmail发送邮件
Set jmail = Server.CreateObject("JMAIL.Message") 建立发送邮件的对象 jmail.silent = true 屏蔽例外错误,返回FALSE跟TRUE两值j mail.logging = true 启用邮件日志 jmail.Charset = "GB2312" 邮件的文字编码为国标原创 2005-10-28 11:12:00 · 2220 阅读 · 0 评论 -
[原创]定义每行每列显示的个数
set rs=server.CreateObject("ADODB.recordset")rs.Open "select * from webdiy_mb ",conn,1,3if rs.bof and rs.eof then response.Write("没有模板") else 放表格的行头 %> For j = 1 to 4 if rs.EOF then Exit Forre原创 2005-06-13 11:07:00 · 990 阅读 · 0 评论 -
asp中分页的功能实现
set rs=server.CreateObject("ADODB.recordset")rs.Open "select * from webdiy_mb ",conn,1,3if rs.bof and rs.eof then response.Write("没有模板") else 定义分页 rs.PageSize=10每页显示的记录数 total_page=rs.原创 2005-06-13 11:31:00 · 1277 阅读 · 0 评论 -
根据日期搜索数据,例如:三天之内发表的文章,一天,十天,一个月,三个月。
使用函数:datediff(""d"",[addDate],Getdate())“”d""表示数据类弄,我在access数据库定义的是日期型,默认参数是:now();[addDate]表示数据库的字段。"&addDate&"表示变量。from提交过来用request获取的变量.sortName=request.Form("sortName")addDate=request("addDate")jo原创 2005-06-13 11:41:00 · 1319 阅读 · 0 评论 -
弹出图像大小的窗口
function showimg(picname){ window.open("showimg.asp?pic_name="+picname,"mypic","toolbar=no, menubar=no, scrollbars=yes, resizable=no,location=no, status=no,width=20,height=20,top=0,left=0");}原创 2006-03-18 11:46:00 · 1060 阅读 · 0 评论