孤独的猫

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2008年9月20日

读写注册表
摘要： 可用WScript对象来对注册表进行操作,如function readcomputer() Dim ReadComputername Set ReadComputername=CreateObject("WScript.Shell") Dim ComputerName,RegPath RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\CouputerName\ComputerName" ComputerName=ReadComputername.RegRead(RegPath) res 阅读全文
posted @ 2008-09-20 22:24 孤独的猫 阅读(176) 评论(0) 推荐(0)

显示数据库中的图像
摘要： show.asp----------------图像显示页面<% set rs=Server.CreateObject("ADODB.Recordset") sql="select top 1 * from newstable2 order by id desc" rs.open sql,conn,1,3%><html> 新闻文本:<%=rs("text")%><br> 新闻图像:<% If IsNull(rs("picture"))=false then%&g 阅读全文
posted @ 2008-09-20 22:18 孤独的猫 阅读(258) 评论(0) 推荐(0)

文本与图像上传到数据库
摘要： 1.upload.asp方法<head><script language=vbscript> function checkinfo() if (document1.form1.picture.value<>"") then if (Instr(1,document.form1.picture.value,".")<=0) or (Instr(1,document.form1.picture.value,"\")<=0) or ((Instr(1,document.form1.pictur 阅读全文
posted @ 2008-09-20 21:52 孤独的猫 阅读(212) 评论(0) 推荐(0)

离开时自动提示设为首页
摘要： <body onunload="BASEBody.style.behavior='url(#default#homepage)';if (!BASEBody.isHomePage('http://eyaya.com.ru'))) BASEBody.SetHomePage('http://....');"> 阅读全文
posted @ 2008-09-20 21:49 孤独的猫 阅读(140) 评论(0) 推荐(0)