如何用變數實現群聊和悄悄話？<%if Request.Form("xt")="on" then' 判斷是否悄悄話.Application.Lock' 是悄悄話,繼續往下處理.application(session("username"))=temppos&application(session("username"))' 只有發言人和發言對象才能看到此發言,實現悄悄話.
如何判斷使用者是否非正常離開聊天室？ total = application("AllPeople")' 聊天總人數. aryHuman = split(total,";") for i = lbound(aryHuman) to ubound(aryHuman) - 1 if application("user" & i) = "online" then if int(timer) - int(application("TimeBegin" &
第一步，建立一個計數器（最簡單的數字計數器，不是圖片式的）： <% @language="vbscript" %> <% set fsFilesys=CreateObject("Scripting.FileSystemObject") set myText=fsFilesys.OpenTextFile(Server.MapPath("/count")&"\count.txt")count=myText.ReadLine'
請問如何做一個專業的圖片計數器？ <％countlong=8 ' 定義計數器位元. On Error Resume Next ' 忽略所有的錯誤. count=server.mappath(count.txt) set cou = server.createobject(scripting.filesystemobject) set out=cou.opentextfile(count,1,false,false)
chat.html <html> <head><title>精彩春風之簡單聊天</title></head> <frameset rows="*,100"> <frame src="chatopinions.asp"> <frame src="chatform.asp"> </frameset> </html> chatopinions.asp<html>
< 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="10" name="Email">< /form><
sub chkIP(boardid) dim rsIP dim ipArr dim ignored dim i dim ip dim sql ip=Request.ServerVariables("REMOTE_ADDR") ignored=false if not isempty(boardid) then sql="select ignoreip from board where
<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes =
<% Set pop3 = Server.CreateObject( "JMail.POP3" ) pop3.Connect "username", "password", "pop3mail.intels.net" ' POP3的串連使用者名稱,密碼,POP3地址. Response.Write( "你現在有" & pop3.count & " 封郵件。<br><br>" ) if pop3.count > 0 then
<% If Err.Number <> 0 Then ' 錯誤處理. Response.Clear ' 清除緩衝區. Select Case Err.Number ' 根據不同錯誤分處理. Case "" ' 指定錯誤類型:此處填加我們指定的錯誤處理代碼. Case Else ' 一般錯誤. If IsObject(objConnection) Then
<%@ Language=VBScript %><%Response.Buffer=trueResponse.Expires = 0Response.ExpiresAbsolute = now() - 1Response.Addheader "cache-control","private"Response.Addheader "pragma","no-cache"%><!DOCTYPE html PUBLIC "-//W3C//Dtd html 4.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=left(choose,len(choose)－1)＋“)"if choose=“()"
<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application"></OBJECT><script LANGUAGE=VBScript RUNAT=Server>Const CONST_FL_NAME = "\GetAttributeCode.ini"Const CONST_FL_FORREADING = 1Const
如何使用表單寄送電子郵件？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> 主題: <INPUT SIZE=30
searchfiles.html <html><head><title>撼雪噴雲之本網搜尋引擎</title></head><body><form method="POST" action="cgi-bin/searchfiles.asp"> <table border="0" cellpadding="5" bgcolor="#C2E7E3"> <tr> <td
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("select logo from pub_info WHERE
如何?電子郵件的自動發送？<%@import namespace="system.web.uit"%>dim mail as new mailmessage ' 建立一個mailmessage對象.mail.to=收件者mail.form=送件人mail.subject=主題mail.bodyformat=格式mail.body=內容smtpmail.send(mail) 具體代碼如下：<%@ Import Namespace="System.Web.Util" %&
<%head = "搜尋"SearchString = Request("SearchString")count=0Function UnMapPath( Path ) UnMapPath = Replace(Mid(Path, Len(Server.MapPath("/")) + 1), "\", "/")' 把目前的目錄的實際路徑轉換為虛擬路徑.End FunctionFunction SearchFile( f, s, title ) Set fo =
第一種辦法：<% 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) atChr = Mid(Email, atLoop, 1) If
global.asa<script LANGUAGE="VBScript" RUNAT="Server">Sub Application_OnStartApplication("ActiveUsers") = 0' 從0開始計起.不過你可以把它設得更多哦,這樣即使沒人線上,人家一來你網站還會看到有900多人線上呢.End SubSub Session_OnStartSession.Timeout = 20' 把Session逾時設為30分鐘——這是噱頭之關鍵所在,你想設多少就設多少.
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
