摘要：
可用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 阅读全文
摘要：
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 阅读全文
摘要：
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 阅读全文
摘要：
<body onunload="BASEBody.style.behavior='url(#default#homepage)';if (!BASEBody.isHomePage('http://eyaya.com.ru'))) BASEBody.SetHomePage('http://....');"> 阅读全文