• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号
登陆 注册
OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› 综合其他›编程千万问

编程千万问

RSS
  • 如何实现网上考试？
    如何实现网上考试？
    login.asp' 考生验证.％@ Language=VBScript％％name=trim(request("name"))passwd=trim(request("passwd"))if name"" and passwd"" then' 检查考生是否输入用户名和密码.Set conn = Server.CreateObject("ADODB.Con ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：134 | 回复：0
  • 如何实现歌曲在线点播？
    如何实现歌曲在线点播？
    %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= ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：152 | 回复：0
  • 如何做一个只搜索本网站的引擎？
    如何做一个只搜索本网站的引擎？
    searchfiles.htmlhtmlheadtitle撼雪喷云之本网搜索引擎/title/headbodyform method="POST" action="cgi-bin/searchfiles.asp" table border="0" cellpadding="5" bgcolor="#C2E7E3" tr td align="center"请输入条目 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：148 | 回复：0
  • 如何做一个文本搜索？
    如何做一个文本搜索？
    %head = "搜索"SearchString = Request("SearchString")count=0Function UnMapPath( Path ) UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")' 把当前目录的实际路径转换为虚拟路径.End Fu ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：123 | 回复：0
  • 如何用FileSystemObject组件来做一个站内搜索？
    如何用FileSystemObject组件来做一个站内搜索？
    searchpage.htm' 搜索页面.htmlhead title千花飞舞之站内搜索引擎/title /head body CENTER FORM METHOD=POST ACTION="searchresult.asp" TABLE BGCOLOR="#BLUE" BORDER="0" tr td R ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：125 | 回复：0
  • 如何实现全文检索？
    如何实现全文检索？
    %@ 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星河影动之全文检索 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：123 | 回复：0
  • 如何分页显示数据库查询结果？
    如何分页显示数据库查询结果？
    % if Request.QueryString("PageNumber").count 0 then ' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据. PageNumber = Request.QueryString("PageNumber")(1)elsePageNumber = 1' 如没指定页号,缺省 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：133 | 回复：0
  • 如何编写翻页函数？
    如何编写翻页函数？
    page.inc% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 参数TotalPage:全部页数;CurPage:当前页数;strUrl:翻页使用的连接地址. DIM strPage CurPage=GetValidPageNO(TotalPage,CurPage) Response.Write "TABLE WID ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：144 | 回复：0
  • 如何用组件实现自动发送电子邮件？
    如何用组件实现自动发送电子邮件？
    如何用组件实现自动发送电子邮件？JMailUploadAutoForm.asphtmlbodyfont face="verdana, arial" size="2"bform method="post" action="JmailUploadAutoFormProcess.asp" ENCTYPE="multipart/form-data"p撼雪喷云之动 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：135 | 回复：0
  • 如何用POP3接收电子邮件？
    如何用POP3接收电子邮件？
    % Set pop3 = Server.CreateObject( "JMail.POP3" ) pop3.Connect "username", "password", "pop3mail.intels.net" ' POP3的连接用户名,密码,POP3地址. Response.Write( "你现在有" pop3.count " 封邮件。brbr" ) ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：130 | 回复：0
  • 如何用ASP发送带附件的邮件？
    如何用ASP发送带附件的邮件？
    如何用ASP发送带附件的邮件？% Option Explicit Dim objMailSet objMail = Server.CreateObject("CDONTS.NewMail")objMail.From = "[email protected] " objMail.Subject = "闪亮日子之星河影动"objMail.AttachFile( ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：130 | 回复：0
  • 如何用ASP发送html格式的邮件？
    如何用ASP发送html格式的邮件？
    如何用ASP发送html格式的邮件？%Dim objMailSet objMail = CreateObject("CDONTS.Newmail")objMail.TO = "[email protected]"objMail.From [email protected] = "闪亮日子之html撼雪喷云"o ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：130 | 回复：0
  • 如何使用表单发送电子邮件？
    如何使用表单发送电子邮件？
    如何使用表单发送电子邮件？formToEmail.htm' 表单.FORM METHOD="POST" ACTION="formToEmail.asp" P 收件人: INPUT SIZE=30 NAME="recipient" MAXLENGTH=200 P 发件人: INPUT SIZE=30 NAME="sender" MAXLENGTH=200 P ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：122 | 回复：0
  • 如何实现电子邮件的自动发送？
    如何实现电子邮件的自动发送？
    如何实现电子邮件的自动发送？%@import namespace="system.web.uit"%dim mail as new mailmessage' 建立一个mailmessage对象.mail.to=收件人mail.form=送件人mail.subject=主题mail.bodyformat=格式mail.body=内容sm ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：136 | 回复：0
  • 如何判断电子邮件的地址格式是否正确？
    如何判断电子邮件的地址格式是否正确？
    第一种办法：% Function IsValidEmail(Email) ValidFlag = False If (Email "") And (InStr(1, Email, "@") 0) And (InStr(1, Email, ".") 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：141 | 回复：0
  • 如何用变量实现群聊和悄悄话？
    如何用变量实现群聊和悄悄话？
    如何用变量实现群聊和悄悄话？%if Request.Form("xt")="on" then ' 判断是否悄悄话.Application.Lock' 是悄悄话,继续往下处理.application(session("username"))=tempposapplication(session("username"))' 只有发言 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：150 | 回复：0
  • 如何判断用户是否非正常离开聊天室？
    如何判断用户是否非正常离开聊天室？
    如何判断用户是否非正常离开聊天室？ total = application("AllPeople")' 聊天总人数. aryHuman = split(total,";") for i = lbound(aryHuman) to ubound(aryHuman) - 1 if application("user" i) = "online" t ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：142 | 回复：0
  • 如何判断发言是否为空？
    如何判断发言是否为空？
    if len(usersays)0 then session("whoto")=request.form("whoto") session("action")=request.form("action") if instr(usersays,chr(39))0 then usersays=replace(usersays,chr(39),"\"chr(39)) end if if instr(us ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：160 | 回复：0
  • 如何编写一个最简单的聊天程序？
    如何编写一个最简单的聊天程序？
    chat.htmlhtml headtitle精彩春风之简单聊天/title/head frameset rows="*,100" frame src="chatopinions.asp" frame src="chatform.asp" /frameset /html chatopinions.asphtml head META HTTP-EQUIV=refresh conte ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：150 | 回复：0
  • 为什么有的留言簿不需要数据库？
    为什么有的留言簿不需要数据库？
    html body form action="manage.asp" method="post" input type="text" size="10" name="username" input type="text" size="10" name="homepage" input type="text" size="……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：154 | 回复：0
  • 如何制作K线图？
    如何制作K线图？
    %@ Language=VBScript %%Response.Buffer=trueResponse.Expires = 0Response.ExpiresAbsolute = now() - 1Response.Addheader "cache-control","private"Response.Addheader "pragma","no-cache"%!DOCTYPE html PUBL ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：172 | 回复：0
  • 如何使图象随机显示？
    如何使图象随机显示？
    % dim p,ppic,dpicppic=12randomizep=Int((ppic*rnd)+1)dpic="chunfeng/images/"p".gif"%……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：176 | 回复：0
  • 如何获知页面上的图象的实际尺寸？
    如何获知页面上的图象的实际尺寸？
    如何获知页面上的图象的实际尺寸？!--#include virtual="/intels/chunfeng/graphicdetect.asp"--htmlheadtitle千花飞舞之获知图像尺寸/title/headbody% graphic="images/intels.gif" HW = ReadImg(graphic) Response ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：147 | 回复：0
  • 如何把图片也存到数据库中去？
    如何把图片也存到数据库中去？
    showimage.aspChange the HTTP headerResponse.ContentType = "image/gif"Set cn = Server.CreateObject("ADODB.Connection")cn.Open "driver={SQL Server};server=.;UID=sa;PWD=;DATABASE=pubs"Set rs = cn.Execute ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：135 | 回复：0
  • 图像图表
    图像图表
    如何把图片上传到数据库中并显示出来？upload.htm' 上传页面.html body p align="center"千花飞舞之图片上传/pcenter 　　 form name="mainForm" enctype="multipart/form-data"' 这个Form属性是得到上传的数据的关 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：143 | 回复：0
  • 统计在线人数是实时的吗？
    统计在线人数是实时的吗？
    global.asascript LANGUAGE="VBScript" RUNAT="Server"Sub Application_OnStartApplication("ActiveUsers") = 0' 从0开始计起.不过你可以把它设得更多哦,这样即使没人在线,人家一来你网站还会看到有900多人在线呢.En ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：145 | 回复：0
  • 如何做一个计数器并让人家申请使用？
    如何做一个计数器并让人家申请使用？
    第一步，创建一个计数器（最简单的数字计数器，不是图片式的）： % @language="vbscript" % % set fsFilesys=CreateObject("Scripting.FileSystemObject") set myText=fsFilesys.OpenTextFile(Server.MapPath("/coun ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：135 | 回复：0
  • 如何制作一个防止多次刷新计数的图片计数器？
    如何制作一个防止多次刷新计数的图片计数器？
    请问如何做一个专业的图片计数器？　　％countlong=8 ' 定义计数器位数. 　　On Error Resume Next ' 忽略所有的错误. 　　count=server.mappath(count.txt) 　　set cou = server.createobject(scripting.filesys ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：132 | 回复：0
  • 如何用数据库制作一个多用户版的计数器？
    如何用数据库制作一个多用户版的计数器？
    count.asp' 计数器的核心程序.%Set conn = Server.CreateObject("ADODB.Connection")dbpath=server.MapPath("count.mdb")conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="DbPathuser=Request.QueryString ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：155 | 回复：0
  • 如何随机显示图片计数器？
    如何随机显示图片计数器？
    count.asp＜ html ＞＜ head ＞＜ meta http-equiv="Content-Type"content="text/html; charset=gb2312" ＞＜title＞随风起舞之千变计数器＜/title＞＜/head＞＜body＞＜p＞＜%dim outcountfile=server.mappath("asp ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：155 | 回复：0
  • 如何实现点击数的计算？
    如何实现点击数的计算？
    counter.htm＜a href=counter.asp?save=123url=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=requ ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：166 | 回复：0
  • 如何最准确地统计在线用户数？
    如何最准确地统计在线用户数？
    ' 设置好global.asa 文件,如下:script LANGUAGE="VBScript" RUNAT="Server"Sub Application_OnStart Application("ActiveUsers") = 0 ' 设置计数初始值,可以根据自己的需要哦.End SubSub Session_OnStart Sess ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：153 | 回复：0
  • 如何实时获知多少人在线？
    如何实时获知多少人在线？
    global.asascript LANGUAGE="VBScript" RUNAT="Server" Sub Application_OnStart ' Sub Application_OnStart 是好在服务器每次启动的时候激活的方法. Session.Timeout = 3 ' 定义用户在线时间,如果在定义时间内 ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：159 | 回复：0
  • 如何让计数器只对新进用户计数？
    如何让计数器只对新进用户计数？
    如何让计数器只对新进用户计数？script language=vbscript runat=serversub application_onstartfilepath=server.mappath("/count")filename=filepath+"\counter.txt"set fs=createobject("scripting.filesystemobje ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：150 | 回复：0
  • 如何防止计数器刷新计数？
    如何防止计数器刷新计数？
    如何防止计数器刷新计数？htmlheadtitle千花飞舞之真实的计数器/title/headbody%dim tms,counter,countlendim images(20)h1="p 千花飞舞计数器/font/p"If IsEmpty(Session("hasbeenConnected")) thenset rs=server.c ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：159 | 回复：0
  • 如何防范利用刷新来“作弊”的计数器？
    如何防范利用刷新来“作弊”的计数器？
    如何防范利用刷新来“作弊”的计数器？%If IsEmpty(Session("Connected")) Then Application.Lock Application("counter") = Application("counter") + 1 Application.UnLockEnd If Session("Connected") = True ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：161 | 回复：0
  • 不用Global.asa也能实现统计在线人数吗？
    不用Global.asa也能实现统计在线人数吗？
    不用Global.asa也能实现统计在线人数吗？%sessionID = session.SessionIDtimeout = 5' 设置session保持的时间.Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" Server.MapPath("count.mdb")'Conn_S ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：150 | 回复：0
  • 如何拒绝同一张表单被多次提交？
    如何拒绝同一张表单被多次提交？
    如何拒绝同一张表单被多次提交？formtest.asp' 表单文件.%Randomize ' 初始化随机数种子.num1=rnd()' 产生随机数.num1=int(26*num1)+65 ' 修改num1的范围,使其是A-Z范围的Ascii码,防止表单名出错.session("antry")= ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：160 | 回复：0
  • 如何在网站中插播广告？
    如何在网站中插播广告？
    如何在网站中插播广告？首先，我们要写一个adrot.txt以调用：adrot.txtredirect width 550height 60border 0*images/chunfengad.gifhttp://www.shenzhaoyang.com欢迎访问闪亮日子之精彩春风！50' 显示百分比images/i ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：176 | 回复：0
  • 如何制作一个Web日程安排表？
    如何制作一个Web日程安排表？
    chunfeng.asp' 该页面可以看到已安排了哪些事情,并在底部链接可按月前后翻动.' 该代码包含获得数据连接的函数,如果数据源一旦有变化,则只有一个位置需要编辑连接信息(服务器、用户和口令). @ LANGUAGE="VBscript" E ...……
    作者：菜鸟教程小白 | 时间：2022-2-5 17:38 | 阅读：191 | 回复：0
热门推荐
More+
专题导读
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap