文件:folder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+"Upfile"
%>
文件:index.asp
HTML code:
<!--#Include file="folder.inc& ......
在VB按MVC的构架写组件供ASP调用
BLL层
VB code:
Private Dal As New moonPotato_DAL
Public Sub inSertUser(Model As moonPotato_Model)
Dal.InSertCls (Model)
End Sub
ASP中调用
VB code:
Set BLL = server.CreatoObject("tttt.moonPotato_BLL")
Set M ......
这个程序是读大一时学C语言我自己想出的,老师直夸我聪明,现在用ASP改写了,大家知道运行结果吗
<table width="486" border="1" cellpadding="0" cellspacing="1">
<% dim ary(8,8)
for k=1 to 5
for i=k to 10-k
for j=k ......
月圆人圆家圆事圆圆圆团团,国和家和人和事和和和美美.祝全国人们 中秋、国庆快乐!
用session变量保存登录用户,如session("username"),
if session("username")&""="" then
response.write(" <script type='text/javascript'>a ......
VB code:
<!--#include file="conn.asp"--><!--#include file="sqlin.asp"--><?xml version="1.0" encoding="gbk"?>
<%
Request_id=Request("aa")
sql="select id,bookhtml,bookupdateid,bookupdatetitle from Ws_BookList where " ......
VBScript code:
Set http=Server.CreateObject("MSXML2.ServerXMLHTTP")
http.Open "post","http://www.yodao.com/smartresult-xml/search.s?type=ip&q=221.123.123.123",false
http.send
Set xml = Server.CreateObject("Microsoft.XMLDOM") ......