求网页制作：制作留言板的代码
《!--#include file=“../inc/conn.asp“--》《%dim name,qq,email,sex,liuyan,ly_type,ip,riqi name=request(“ly_user_name“) qq=request(“ly_user_qq“) email=request(“ly_user_email“) sex=request(“ly_sex“) liuyan=request(“ly_liuyan“) ly_type=request(“ly_type“) ip=request.ServerVariables(“REMOTE_ADDR“) if name=““ then response.write “《script language=javascript》alert(’您的名字没有填写，请填写完整信息，谢谢!’);history.go(-1);《/script》“ elseif qq=““ then response.write “《script language=javascript》alert(’忘了QQ哦’);history.go(-1);《/script》“ elseif liuyan=““ then response.write “《script language=javascript》alert(’留言内容不能为空!’);history.go(-1);《/script》“ else if ly_type=““ then ly_type=1 else ly_type=2 end if dim sql sql=“insert into liuyan(ly_user_name,ly_user_qq,ly_user_email,ly_sex,ly_liuyan,ly_type,ly_user_ip,ly_user_riqi) values(’“ & name & “’,’“ & qq & “’,’“ & email & “’,’“ & sex & “’,’“ & liuyan & “’,’“ & ly_type & “’,’“ & ip & “’,#“ & date() & “#)“ db.execute(sql) response.redirect “ly_main.asp“ end if %》
求各种vbs系统指令代码
从系统开始菜单中删除此链接:Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=-“InfoTip“=-[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon] @=-[HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag] “Command“=-“Param1“=-VBS脚本实现整理磁盘碎片功能Set WshShell = WScript.CreateObject(“WScript.Shell“)Dim fso, d, dc Set fso = CreateObject(“Scripting.FileSystemObject“) Set dc = fso.Drives For Each d in dc If d.DriveType = 2 Then Return = WshShell.Run(“defrag “ & d & “ -f“, 1, TRUE) End If NextSet WshShell = Nothing计划任务定时调用VBS脚本Option ExplicitOn Error Resume Next’生成列表的文件类型Const sListFileType = “wmv,rm,wma“’文件所在的相对路径Const sShowPath=“.“’排序类型的常量定义Const iOrderFieldFileName = 0Const iOrderFieldFileExt = 1Const iOrderFieldFileSize = 2Const iOrderFieldFileType = 3Const iOrderFieldFileDate = 4’排序顺逆的常量定义const iOrderAsc = 0const iOrderDesc = 1’生成列表的文件数量const iShowCount = 20’显示的日期格式函数Function Cndate2(date1,intDateStyle)dim strdate,dDate1strdate=cstr(date1)If Isdate(strdate) ThenIf Left(cstr(strdate),1)=“0“ ThendDate1=Cdate(“20“+cstr(strdate))elsedDate1=Cdate(strdate)End IfElsedDate1=Now()End IfSelect case intDateStyleCase 1:Cndate2 = Cstr(Year(dDate1))+“-“+Cstr(Month(dDate1))+“-“+Cstr(Day(dDate1))Case 2:Cndate2 = Cstr(Month(dDate1))+“-“+Cstr(Day(dDate1))Case 3:Cndate2 = Cstr(Month(dDate1))+“月“+Cstr(Day(dDate1))+“日“Case 4:Cndate2 = Cstr(year(dDate1))+“年“+ Cstr(Month(dDate1))+“月“+Cstr(Day(dDate1))+“日“End SelectEnd FunctionFunction ListFile(strFiletype,intCompare,intOrder,intShowCount)Dim sListFileDim fso, f, f1, fc, s,ftype,fcount,i,j,kDim t1,t2,t3,t4,t5Dim iMonth,iDaysListFile = ““Set fso = CreateObject(“Scripting.FileSystemObject“)Set f = fso.GetFolder(sShowPath)Set fc = f.Filesfcount = fc.countredim arrFiles(fcount,5)redim arrFiles2(fcount,5)i=0’排序For Each f1 in fcftype = right(f1.name,len(f1.name)-instrrev(f1.name,“.“))arrFiles(i,0) = f1.namearrFiles(i,1) = ftypearrFiles(i,2) = f1.sizearrFiles(i,3) = f1.typearrFiles(i,4) = f1.DateLastModifiedi=i+1NextFor i=0 to fcount-1for j=i+1 to fcount-1select Case intCompareCase iOrderFieldFileName,iOrderFieldFileExt,iOrderFieldFileType:If arrFiles(i,intCompare)》arrFiles(j,intCompare) thent1 = arrFiles(i,0)t2 = arrFiles(i,1)t3 = arrFiles(i,2)t4 = arrFiles(i,3)t5 = arrFiles(i,4)arrFiles(i,0) = arrFiles(j,0)arrFiles(i,1) = arrFiles(j,1)arrFiles(i,2) = arrFiles(j,2)arrFiles(i,3) = arrFiles(j,3)arrFiles(i,4) = arrFiles(j,4)arrFiles(j,0) = t1arrFiles(j,1) = t2arrFiles(j,2) = t3arrFiles(j,3) = t4arrFiles(j,4) = t5end ifCase iOrderFieldFileSize:If cdbl(arrFiles(i,intCompare))》cdbl(arrFiles(j,intCompare)) thent1 = arrFiles(i,0)t2 = arrFiles(i,1)t3 = arrFiles(i,2)t4 = arrFiles(i,3)t5 = arrFiles(i,4)
网页留言板代码
《link href=“../../css/user.css“ rel=“stylesheet“ type=“text/css“》《script language=“JavaScript“ src=“../../js/common.js“》《/script》《script language=“JavaScript“ src=“../../js/ubbcode.js“》《/script》《script language=“JavaScript“》function formCheck(){ if (document.theform.nickname.value == ““) { alert(“请填写名字。“); document.theform.nickname.focus(); return false; }if (document.theform.content.value == ““) { alert(“请填写留言内容。“); document.theform.content.focus(); return false; }theform.Submit.disabled=true;return true;}function showimage(){document.images.faceimg.src=face_image[parseInt(document.theform.face.options[document.theform.face.selectedIndex].value)];}《body background=“《center》《IFRAME marginHeight=0 marginWidth=0 noResize scrolling=no frameBorder=0 src=“《/IFRAME》《/center》《p》 《/p》《form name=“theform“ onsubmit=“return formCheck();“ method=“post“ action=“get_post.asp“》《TABLE width=550 border=0 align=“center“ cellPadding=0 cellSpacing=0》《table width=“550“ border=“0“ align=“center“ cellpadding=“4“ cellspacing=“1“ bgcolor=“#ebebeb“》《tr》 《td class=“pt9“》《p》*名字: 《input name=“nickname“ type=“text“ size=“15“ maxlength=“12“ class=“inputbox1“》《br》Email: 《input name=“email“ type=“text“ size=“15“ maxlength=“45“ class=“inputbox1“》主页地址: 《input name=“hp_url“ type=“text“ value=“《/p》《/td》《tr》 《td width=“409“ class=“pt9“》 《!--因为图片连接的原因，本文件只适合include在script/dirname下的文件 --》《img onClick=bold() src=“../../images/icon_editor_bold.gif“ width=“23“ height=“22“ alt=“粗体“ border=“0“》《img onClick=italicize() src=“../../images/icon_editor_italicize.gif“ width=“23“ height=“22“ alt=“斜体“ border=“0“》《img onClick=underline() src=“../../images/icon_editor_underline.gif“ width=“23“ height=“22“ alt=“下划线“ border=“0“》 《img onClick=center() src=“../../images/icon_editor_center.gif“ width=“23“ height=“22“ alt=“居中“ border=“0“》《img onClick=hyperlink() src=“../../images/icon_editor_url.gif“ width=“23“ height=“22“ alt=“超级连接“ border=“0“》《img onClick=email() src=“../../images/icon_editor_email.gif“ width=“23“ height=“22“ alt=“Email连接“ border=“0“》《img onClick=image() src=“../../images/icon_editor_image.gif“ width=“23“ height=“22“ alt=“图片“ border=“0“》《img onClick=flash() src=“../../images/icon_swf.gif“ width=“23“ height=“22“ alt=“Flash图片“ border=“0“》《img onClick=showcode() src=“../../images/icon_editor_code.gif“ width=“23“ height=“22“ alt=“编号“ border=“0“》《img onClick=quote() src=“../../images/icon_editor_quote.gif“ width=“23“ height=“22“ alt=“引用“ border=“0“》《img onClick=list() src=“../../images/icon_editor_list.gif“ width=“23“ height=“22“ alt=“目录“ border=“0“》 《br》《tr》 《td》 《table width=“100%“ border=“0“ cellpadding=“0“ cellspacing=“0“ class=“pt9“》《tr》《td width=“40“ valign=“top“》*留言:《/td》《td》《textarea name=“content“ cols=“50“ rows=“6“ id=“content“》《/textarea》《/td》《/tr》《/table》《p align=“center“》《input name=“replyer“ type=“hidden“ value=““》《input name=“reply_content_id“ type=“hidden“ value=““》《input name=“userid“ type=“hidden“ value=“79444“》《input type=“submit“ name=“Submit“ value=“确认留言“ class=“button1“》《input type=“reset“ name=“Reset“ value=“取消重写“ class=“button1“》《/p》《/td》《/tr》《/table》《p》 《/p》《/form》《table width=“550“ border=“0“ align=“center“ cellpadding=“2“ cellspacing=“1“》《tr》 《td width=“88“ valign=“top“》《img src=“《/td》《td width=“417“》《TABLE width=“100%“ border=0 cellPadding=0 cellSpacing=0 class=“pt9“》《TBODY》《TR》 《TD width=43 colSpan=2 height=29 rowSpan=2》《IMG height=29 src=“../../images/1_r2_c2.gif“ width=43 border=0》《/TD》《TD background=../../images/1_r2_c4.gif height=10》《/TD》《TD width=37 colSpan=2 height=29 rowSpan=2》《IMG height=29 src=“../../images/1_r2_c6.gif“ width=37 border=0》《/TD》《/TR》《TR》 《TD height=19》 《TABLE cellSpacing=0 cellPadding=0 width=“100%“ border=0》《TBODY》《TR》 《TD class=“pt9“》 《font class=“filtertxt“》dsfsd《/font》 《/TD》《TD width=“168“ align=right class=“pt9“》 《/TD》《/TR》《/TBODY》《/TABLE》《/TD》《/TR》《TR》 《TD width=10 background=../../images/1_r4_c2.gif》《/TD》《TD width=27》《/TD》《TD width=“100%“ height=50》 《img src=“../../images/blank.gif“ width=“5“ height=“5“》 《br》 fdsfsd《b》dfssdfsdf《/b》 《br》 《img src=“../../images/blank.gif“ width=“5“ height=“5“》 《/TD》《TD width=22》《/TD》《TD width=15 background=../../images/1_r4_c2.gif》《/TD》《/TR》《TR》《TD background=../../images/1_r4_c2.gif》《/TD》《TD》《/TD》《TD height=1》《hr width=“100%“ size=“1“ noshade》《/TD》《TD》《/TD》《TD background=../../images/1_r4_c2.gif》《/TD》《/TR》《TR》 《TD width=43 colSpan=2 height=26 rowSpan=2》 《IMG height=26 src=“../../images/1_r6_c2.gif“ width=43 border=0》《/TD》《TD align=right height=17》 《img src=“../../images/no_home.gif“ align=“absmiddle“》 《img src=“../../images/no_email.gif“ align=“absmiddle“》 《FONT color=#336600》[2006-7-17 21:24:00]《/FONT》 《/TD》《TD width=43 colSpan=2 height=26 rowSpan=2》《IMG height=26 src=“../../images/1_r6_c6.gif“ width=37 border=0》《/TD》《/TR》《TR》 《TD background=../../images/1_r2_c4.gif height=9》《/TD》《/TR》《/TBODY》《/TABLE》《/td》《/tr》《/table》《BR》《form》《table width=“516“ border=“0“ cellspacing=“0“ cellpadding=“0“ align=“center“》《tr》《td》《table width=100% border=0 cellspacing=1 cellpadding=2 class=pt9》《tr》《td height=13》《img src=../../images/turnpage2_1.gif align=absmiddle border=0》 《img src=../../images/turnpage2_2.gif align=absmiddle border=0》 《b》1《/b》 | 《img src=../../images/turnpage2_3.gif align=absmiddle border=0》 《img src=../../images/turnpage2_4.gif align=absmiddle border=0》《/td》《td class=pt9 width=140 align=right》共《font color=red》1《/font》页第《input type=text name=JumpPage maxlength=3 size=3》页《input type=button value=转页 onClick=“location.href=’/script/user/list.asp?userid=79444&page=’ + this.form.JumpPage.value;“》《/td》《/tr》《/table》《/td》《/tr》《/table》《/form》
