搜索列表
-
如何实现某些页面只让特定的用户浏览？
【编程10000问】global.asp <script language=vbscript runat=server> sub Session_onstart session("register")="false" ' 记录用户成功登录的信息. session("lognumber")=0 ' 记录用户尝试登录的次数,最多允许尝试三次. session("prescript")="" ' 记录用户要访问的页面,以便登...
|如何|何实|实现|现某|某些|些页|页面|面只|只让|让特|特定|定的|的用|用户|户浏|浏览|览？|？| -
如何实现无组件上传二进制文件？
【编程10000问】<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library"--><% Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") ' 创建一个Stre...
|如何|何实|实现|现无|无组|组件|件上|上传|传二|二进|进制|制文|文件|件？|？| -
如何实现文件上传并自动归类功能？
【编程10000问】upload.asp <form action=http://<％= Request. ServerVariables(SERVER_NAME)>/wdread.asp method=post> <p>主题: <input type=text name=subject><br> 作者:<input name=author type=text><br> ...
|如何|何实|实现|现文|文件|件上|上传|传并|并自|自动|动归|归类|类功|功能|能？|？| -
如何实现人民币的大写转换？
【编程10000问】第一个办法，这个程序可以进行万亿以下的货币金额转换（够用的了吧），其中汉字与数字均按一位计：Function AtoC(a As Currency) As String ' 定义两个字符串，A的值最多是两位小数. Dim String1 As String ' 如下定义. Dim String2 As String&...
|如何|何实|实现|现人|人民|民币|币的|的大|大写|写转|转换|换？|？| -
如何实现在下拉菜单里输入文字？
【编程10000问】如何实现在下拉菜单里输入文字？<script>function pp(){se.options[2]=new Option(ok=(se.options[2])?se.options[2].innerText+String.fromCharCode(event.keyCode):String.fromCharCode(event.keyCode),"client")se.selectedIndex=2;}function edit(){if(se.options[2]){if(event.keyCode==8){var str=...
|如何|何实|实现|现在|在下|下拉|拉菜|菜单|单里|里输|输入|入文|文字|字？|？| -
如何实现非大小写的替换？
【编程10000问】如何实现非大小写的替换？Function ReplaceNoIgnoreCase(str,replStr) If len(replStr)<1 or str="" Then ReplaceTest=str Exit function End If ...
|如何|何实|实现|现非|非大|大小|小写|写的|的替|替换|换？|？| -
如何实现歌曲在线点播？
【编程10000问】<%dim choose,path,mydb,myset,SQL,fs,mp3' 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose. choose=“("for i=3 to request.form.countchoose=choose＋request.form(i)＋“,"nextchoose=left(choose,len(choose)－1)＋“)"if choose=“()" thenresponse.redirect(“list.htm")resp...
|如何|何实|实现|现歌|歌曲|曲在|在线|线点|点播|播？|？| -
如何实现全文检索？
【编程10000问】<%@ LANGUAGE="VBscript" %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> <meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80"> <title>星河影动之全文检索...
|如何|何实|实现|现全|全文|文检|检索|索？|？| -
如何实现电子邮件的自动发送？
【编程10000问】如何实现电子邮件的自动发送？<%@import namespace="system.web.uit"%>dim mail as new mailmessage ' 建立一个mailmessage对象.mail.to=收件人mail.form=送件人mail.subject=主题mail.bodyformat=格式mail.body=内容smtpmail.send(mail) 具体代码如...
|如何|何实|实现|现电|电子|子邮|邮件|件的|的自|自动|动发|发送|送？|？| -
如何实现点击数的计算？
【编程10000问】counter.htm＜a href=counter.asp?save=123&url=http://127.0.0.1/＞http://127.0.0.1＜/a＞ 共点击次数：＜script src=view.asp?save=123＞＜/script＞ counter.asp＜% path="d:data" file=request("save") url=request("url") Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(path...
|如何|何实|实现|现点|点击|击数|数的|的计|计算|算？|？| -
如何实现网上考试？
【编程10000问】login.asp' 考生验证.<％@ Language=VBScript％><％name=trim(request("name"))passwd=trim(request("passwd"))if name<>"" and passwd<>"" then' 检查考生是否输入用户名和密码.Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Acces...
|如何|何实|实现|现网|网上|上考|考试|试？|？| -
如何实现点击数的计算？
【编程10000问】counter.htm＜a href=counter.asp?save=123&url=http://127.0.0.1/＞http://127.0.0.1＜/a＞ 共点击次数：＜script src=view.asp?save=123＞＜/script＞ counter.asp＜% path="d:data" file=request("save") url=request("url") Set fs = CreateObject("Scripting.FileSystemObject") if fs.FileExists(path...
|如何|何实|实现|现点|点击|击数|数的|的计|计算|算？|？|
