page.inc<% Sub ShowPageBar(TotalPage,CurPage,strUrl) ' 参数TotalPage:全部页数;CurPage:当前页数;strUrl:翻页使用的连接地址. DIM strPage CurPage=GetV...
<% Set pop3 = Server.CreateObject( "JMail.POP3" ) pop3.Connect "username", "password", "pop3mail.intels.net" ...
如何用ASP发送带附件的邮件?<% Option Explicit Dim objMail Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "liy...
如何用ASP发送html格式的邮件?<%Dim objMailSet objMail = CreateObject("CDONTS.Newmail")objMail.TO = "sunchunliang@263.net"objMail.From =she...
如何使用表单发送电子邮件?formToEmail.htm' 表单.<FORM METHOD="POST" ACTION="formToEmail.asp"> <P> 收件人: <INPUT SIZE=30 NAME="recipi...
第一种办法:<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, ...
如何实现电子邮件的自动发送?<%@import namespace="system.web.uit"%>dim mail as new mailmessage ' 建立一个mailmessage对象.mail.to...
如何用变量实现群聊和悄悄话?<%if Request.Form("xt")="on" then ' 判断是否悄悄话.Application.Lock' 是悄悄话,继续往下处理.application(session("username"))=...
如何判断用户是否非正常离开聊天室? total = application("AllPeople")' 聊天总人数. aryHuman = split(total,";") for ...
if len(usersays)<>0 then session("whoto")=request.form("whoto") session("action")=request.form("action") i...
< html>< body>< form action="manage.asp" method="post">< input type="text" size="10" name="username">< ...
chat.html <html> <head><title>精彩春风之简单聊天</title></head> <frameset rows="*,100"> <frame ...
<%@ Language=VBScript %><%Response.Buffer=trueResponse.Expires = 0Response.ExpiresAbsolute = now() - 1Response.Addheader ...
<% dim p,ppic,dpicppic=12randomizep=Int((ppic*rnd)+1)dpic="chunfeng/images/"&p&".gif"%> [1] ...
如何获知页面上的图象的实际尺寸?<!--#include virtual="/intels/chunfeng/graphicdetect.asp"--><html><head><title>千花飞舞之获知图像尺寸...
如何把图片上传到数据库中并显示出来?upload.htm' 上传页面.<html> <body> <p align="center">千花飞舞之图片上传</p><center> <form...
showimage.aspChange the HTTP headerResponse.ContentType = "image/gif"Set cn = Server.CreateObject("ADODB.Connection")cn.Open "driv...
global.asa<script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStartApplication("ActiveUsers") = 0' 从0开始计起.不过你...
第一步,创建一个计数器(最简单的数字计数器,不是图片式的): <% @language="vbscript" %> <% set fsFilesys=CreateObject("Scripting.FileSystem...
请问如何做一个专业的图片计数器? <%countlong=8 ' 定义计数器位数. On Error Resume Next ' 忽略所有的错误. count=serv...