webconfig.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<!--#include file="css.asp"-->
<%dim dada, dadaurl, xiao1, xiao2, xiao3, xiao1url, xiao2url, xiao3url, tx1, tx1url, tx2, tx2url, tx3, tx3url, ie4
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_gg", conn, 1, 1
dada=trim(rs("458"))
dadaurl=trim(rs("458url"))
xiao1=trim(rs("2541"))
xiao1url=trim(rs("2541url"))
xiao2=trim(rs("2542"))
xiao2url=trim(rs("2542url"))
xiao3=trim(rs("2543"))
xiao3url=trim(rs("2543url"))
tx1=trim(rs("1441"))
tx1url=trim(rs("1441url"))
tx2=trim(rs("1442"))
tx2url=trim(rs("1442url"))
tx3=trim(rs("1443"))
tx3url=trim(rs("1443url"))
rs.close
set rs=nothing
%>
<%
dim name, tel, fax, mail, oicq, web, sitename, code, maddr, msn, mname, ymaddr, ymname, rs
set rs=server.CreateObject("adodb.recordset")
rs.Open "select name,tel, fax, mail, oicq, web, sitename, code, maddr, msn, mname, ymaddr, ymname from 56770_system",conn, 1, 1
name=trim(rs("name"))
mail=trim(rs("mail"))
tel=trim(rs("tel"))
fax=trim(rs("fax"))
oicq=trim(rs("oicq"))
web=trim(rs("web"))
sitename=trim(rs("sitename"))
code=trim(rs("code"))
maddr=trim(rs("maddr"))
msn=trim(rs("msn"))
mname=trim(rs("mname"))
ymaddr=trim(rs("ymaddr"))
rs.Close
set rs=nothing
%>