ASP

select|網路 <%@ Language=VBScript %><%if Request.Form("selsub")<>""

網路 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P align=center><STRONG><FONT

<%@ Language=VBScript %><html><head><meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></head><body><p align="center"><strong><font color="crimson"

<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><FORM action="handlevote.asp"  target=mainFrame method=post

ado <%@ Language=VBScript %><HTML><HEAD><Title>故事接龍</Title></HEAD><BODY><font size=2><%strfilename=server.MapPath("story.txt")set

<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><% if Request.Form("submit")="更新投票結果" and Request.Form("

<%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><%'該變數取得當前發表的故事是第幾章dim

<%@ Language=VBScript %><%'以下為處理投票的asp程式if Request.ServerVariables("http_method")="POST" then    if Request.Form("voteradio")<>""

控制 <%Option Explicitconst admin="admin"const admpass="admin"dim

xml|伺服器|聊天室|重新整理|無重新整理|原創 ################main.asp######################<%Response.Buffer=trueResponse.Expires=0userName=Request.Form("username")if username="" then Response.Redirect

xml|伺服器|聊天室|重新整理|無重新整理|原創 使用XML.而無須不斷重新整理*.ASP.無重新整理實現發言的逐條顯示.使用Application變數儲存聊天記錄,所以要需要建立一個虛擬目錄伺服器端不需要支援XML,只要支援ASP和能建立虛擬目錄就可以了.以下代碼在nt4.0+iis4.0上通過.我估計在你的win2000下也差不多吧.如果有問題,請多多賜教:netnice@chinaok.net##########index.asp#####

xml|伺服器|聊天室|重新整理|無重新整理|原創 ########say.asp##############<% Option Explicit dim F,T,sC,cL,E,W,sJResponse.ContentType="text/xml"F=Request.Form ("F")T=Request.Form ("T")sC=Request.Form

xml|伺服器|聊天室|重新整理|無重新整理|原創 這是最重要的一個了。也很大。我的習慣不太好。沒有加詳細的注釋，認真看吧。#########send.asp##############<html> <head><META content="text/html; charset=gb2312" http-equiv=Content-Type><meta

web|程式|顯示|頁面                    　顯示頁面show.asp--基於web的QQ程式1(only asp)<html><head><title>基於web的QQ程式1</title>&

core|網路 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P align=center><STRONG><FONT

select|網路 <%@ Language=VBScript %><%Response.Buffer=true%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY

網路 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P><INPUT id=submit1 name=submit1 type=submit

網路 <%@ Language=VBScript %><%if Request.ServerVariables("http_method")="POST" then'提交方式對試題進行操作    set

網路 <%@ Language=VBScript %><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset rows=

網路 <%@ Language=VBScript %><% if Request.ServerVariables("http_method")="GET" then'如果是以GET方式請求頁面，則將頁碼定為1    page=1end ifset