簡單的asp網站源碼
『壹』 asp網站源代碼
在區域網里搭建一個web伺服器，固定該機的內網IP，要win2003系統,XP的不行，因為IIS連接數有限制，搭建好，把程序放上去，其他電腦直接輸入這台伺服器的IP地址就可以訪問了。
如果要外網登陸，要先把區域網的路由器映射到這台伺服器上，一般是在路由器里設置DMZ主機，然後填上伺服器的內網IP。
外網訪問時是要輸入外網的IP，可以上IP138查詢到。
如果你們寬頻是固定IP的話申請個域名指向這個IP就行了，如果不是固定IP，就需要使用動態域名，現在常用的是 「花生殼」
『貳』 求ASP源碼！最好是整站的！功能要多！
推薦目前最好的3個，都是可以免費使用的
風訊FoosunCMSv3.1.1120(V3.1.0930 SP1)正式免費版，推薦這個，上傳至ASP空間就可以使用
http://www.codepub.com/Software/View-Software-4085.html
動易CMS2006普及版，這個需要安裝組件
http://www.codepub.com/Software/View-Software-5347.html
前面兩個都是生成靜態頁面的，下面這個不是，不過相應的板塊最多，還自帶自己的論壇，不過也要組件支持：Joekoe CMS 3.0 免費版
http://www.codepub.com/Software/View-Software-4677.html
『叄』 asp程序實現簡單的注冊，登錄網頁的源代碼
1，（index.asp 用戶登陸頁面）
<!-- #include file="conn.asp" -->
<!-- blog.soowooo.cn 悠悠長假期 -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>會員</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
<p>會員注冊系統</p>
<form name="form1" method="post" action="login.asp">
<table width="34%" border="0">
<tr>
<td width="33%" height="30">用戶名:</td>
<td width="67%" height="30"><input name="username" type="text" id="username" size="15"></td>
</tr>
<tr>
<td height="30">密 碼:</td>
<td height="30"><input name="password" type="password" id="password" size="15"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="Submit" value="確定">
<input type="reset" name="Submit" value="重置"></td>
</tr>
<tr>
<td colspan="2"><a href="reg.asp" target="_self">注冊</a></td>
</tr>
</table>
</form>
</center>
</body>
</html>
2，（login.asp 用戶數據處理文件）
<!-- #include file="conn.asp" -->
<%
'打開資料庫判斷用戶是否存在,info為表名,username為欄位名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("change.asp")
'如果用戶不存在,session("username")為空
%>
3，（change.asp 用戶信息修改頁面）
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改</title>
<style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
-->
</style></head>
<center>
<body>
<br>
<%
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'"
rsc.open sqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
set rsc=nothing
if nr="" then
response.Redirect("index.asp")
end if
if strcomp(nr,request.Form("password"))=0 then
response.Write("歡迎你！"&request.Form("username"))
response.Write("你是在"&vv&"注冊的")
session("username")=request.Form("username")
end if
if session("username")="" then
response.Redirect("index.asp")
end if
%>
<form name="form1" method="post" action="change.asp?ac=ch">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名：</td>
<td width="73%" height="30"><input name="username" type="text" id="username" value="<%=username%>">
*</td>
</tr>
<tr>
<td height="30">密 碼：</td>
<td height="30"><input name="password" type="text" id="password" value="<%=password%>">
*</td>
</tr>
<tr>
<td height="30">性 別：</td>
<td height="30"><input name="sex" type="text" id="sex" value="<%=sex%>"></td>
</tr>
<tr>
<td height="30">QQ：</td>
<td height="30"><input name="qq" type="text" id="qq" value="<%=qq%>"></td>
</tr>
<tr>
<td height="30">Mail：</td>
<td height="30"><input name="mail" type="text" id="mail" value="<%=mail%>"></td>
</tr>
<tr>
<td height="30">地 址：</td>
<td height="30"><input name="add" type="text" id="add" value="<%=add%>"></td>
</tr>
<tr>
<td>介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"><%=personalinfo%></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="修改">
<a href="change.asp?se=y" target="_self">退出系統</a></td>
<% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%>
</tr>
</table>
</form>
<%
if strcomp(request.QueryString("ac"),"ch")=0 then
set rs=server.createobject("adodb.recordset")
sql="select * from info where username='"&session("username")&"'"
rs.open sql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
set rs=nothing
response.Write("修改完成！")
end if
%>
</body>
</center>
</html>
4，（reg.asp 新用戶注冊頁面）
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用戶注冊</title>
<style type="text/css">
<!--
body,td,th {
font-family: 宋體;
font-size: 14px;
}
-->
</style>
</head>
<body>
<center>
用戶注冊<br>
<%
=request.QueryString("msg")
%>
<form name="form1" method="post" action="addnewdata.asp?ac=adser">
<table width="39%" height="105" border="0" >
<tr>
<td width="27%" height="30">用戶名：</td>
<td width="73%" height="30"><input name="username" type="text" id="username">
*</td>
</tr>
<tr>
<td height="30">密碼：</td>
<td height="30"><input name="password" type="password" id="password">
*</td>
</tr>
<tr>
<td height="30">確定密碼：</td>
<td height="30"><input name="password2" type="password" id="password2">
*</td>
</tr>
<tr>
<td height="30">性別：</td>
<td height="30"><input name="sex" type="text" id="sex"></td>
</tr>
<tr>
<td height="30">QQ：</td>
<td height="30"><input name="qq" type="text" id="qq"></td>
</tr>
<tr>
<td height="30">Mail：</td>
<td height="30"><input name="mail" type="text" id="mail"></td>
</tr>
<tr>
<td height="30">地址：</td>
<td height="30"><input name="add" type="text" id="add"></td>
</tr>
<tr>
<td>個人介紹</td>
<td><textarea name="personalinfo" cols="30" rows="6" id="personalinfo"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
5，（addnewdata.asp 新用戶注冊數據處理文件）
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>成功</title>
</head>
<body>
<%
ac=request.QueryString("ac")
msg="注冊錯誤信息"
if request.Form("username")="" then
msg=msg&"<br>"&"用戶名不能為空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0 then
msg=msg&"<br>"&"兩次密碼輸入不同"
end if
if len(request.Form("password"))<6 then
msg=msg&"<br>"&"密碼太簡單"
end if
if strcomp(msg,"注冊錯誤信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"&request.Form("username")&"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck<>"" then
msg=msg&"<br>"&"用戶名被人注冊"
response.Redirect("reg.asp?msg="&msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
set rs=nothing
%>
<center>
<a href="index.asp" target="_self">注冊成功,點擊登陸</a>
</center>
<%
end if
%>
</body>
</html>
6，（conn.asp 資料庫連接文件）
<%
'連接資料庫開始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("userinfo.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="
'創建記錄對象
set rs=server.createobject("adodb.recordset")
%>
7，（userinfo.mdb ACCESS 資料庫）
在ACCESS中建一個表，然後在這個表中建立欄位名稱
表名：info
欄位名稱 數據類型
id 自動編號
username 文本
password 文本
sex 文本
quest 文本
qq 文本
mail 文本
personalinfo 文本
ntime 文本
『肆』 請問哈，那能找到個簡單的整站ASP源代碼，有基本的功能就可以，後台好操作，完整
第一個：
<tr>
<td colspan="2" align="left" valign="top" class="c">留言內容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="2" align="left" valign="top" class="c" height="16">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#333333">刪除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#333333">我要留言</font></a>.........</td>
</tr>
把上面的改成
<tr>
<td colspan="3" align="left" valign="top" class="c">留言內容:<p><%=rs("connet")%></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top" class="c" height="16">
..............<a href="del.asp?id=<%=rs("id")%>" style="text-decoration: none"><font color="#333333">刪除</font></a>.................<a href="reg.asp" style="text-decoration: none"><font color="#333333">我要留言</font></a>.........</td>
</tr>
第二個：
<!--header begin-->
<%
response.write "<div id=mainbox>"&_
"<table border=0 width=100% cellpadding=4 style=border-collapse: collapse class='top_table'>"&_
"<form name=form11 action=Proct_ListSearch.asp method=get>"&_
" <tr><td colspan=2 height=5></td></tr>"&_
" <tr>"&_
" <td><a href=index.asp title=返回首頁><img src=uploadpic/></a></td>"&_
" <td align=right>"&_
" <table><tr><td class=cartimg></td><td><a href=Cart_List.asp>查看我的購物車</a>(<font color=#FF0000>"
if session("y")="" then response.write "0" else response.write session("y")
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
response.write "<td><a href=index.asp title=返回首頁><object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='365' height='53'>"&_
"<param name='movie' value='logo.swf'>"&_
"<param name='quality' value='high'>"&_
"<embed src='logo.swf' width='365' height='53' quality='high' type='application/x-shockwave-flash' width='365' height='53'></embed></object></a></td>"
%>
希望我的回答對你有所幫助。
『伍』 哪位高手給寫段ASP生成靜態頁的源碼
網頁生成靜態Html文件有許多好處,比如生成html網頁有利於被搜索引擎收錄,不僅被收錄的快還收錄的全.前台脫離了數據訪問,減輕對資料庫訪問的壓力,加快網頁打開速度.
像www.aspid.cn的主站就採用了TSYS生成html文件!
所以吟清最近對生成html比較感興趣,看了不少文章,也有一點點收獲.
1,下面這個例子直接利用FSO把html代碼寫入到文件中然後生成.html格式的文件 ＜%
filename="test.htm"
if request("body")＜>"" then
set fso = Server.CreateObject("Scripting.FileSystemObject")
set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))
htmlwrite.write "＜html>＜head>＜title>" & request.form("title") & "＜/title>＜/head>"
htmlwrite.write "＜body>輸出Title內容: " & request.form("title") & "＜br /> 輸出Body內容:" & request.form("body")& "＜/body>＜/html>"
htmlwrite.close
set fout=nothing
set fso=nothing
end if
%>
＜form name="form" method="post" action="">
＜input name="title" value="Title" size=26>
＜br>
＜textarea name="body">Body＜/textarea>
＜br>
＜br>
＜input type="submit" name="Submit" value="生成html">
＜/form>
2,但是按照上面的方法生成html文件非常不方便,第二種方法就是利用模板技術,將模板中特殊代碼的值替換為從表單或是資料庫欄位中接受過來的值,完成模板功能;將最終替換過的所有模板代碼生成HTML文件.這種技術採用得比較多,大部分的CMS都是使用這類方法.
template.htm ' //模板文件 ＜html>
＜head>
＜title>$title$ by aspid.cn＜/title>
＜/head>
＜body>
$body$
＜/body>
＜/html> ?
TestTemplate.asp '// 生成Html ＜%
Dim fso,htmlwrite
Dim strTitle,strContent,strOut
'// 創建文件系統對象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
'// 打開網頁模板文件，讀取模板內容
Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm"))
strOut=f.ReadAll
htmlwrite.close
strTitle="生成的網頁標題"
strContent="生成的網頁內容"
'// 用真實內容替換模板中的標記
strOut=Replace(strOut,"$title$",strTitle)
strOut=Replace(strOut,"$body$",strContent)
'// 創建要生成的靜態頁
Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true)
'// 寫入網頁內容
htmlwrite.WriteLine strOut
htmlwrite.close
Response.Write "生成靜態頁成功！"
'// 釋放文件系統對象
set htmlwrite=Nothing
set fso=Nothing
%>
3,第三種方法就是用XMLHTTP獲取動態頁生成的HTML內容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。這句話是在藍色理想上看到的,對XMLHTTP吟清還不熟悉正在找資料了解.找到一段XMLHTTP生成Html的代碼參考一下.
＜%
'常用函數
'1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼
function getHTTPPage(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate＜>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number＜>0 then err.Clear
end function
'2、轉換亂瑪，直接用xmlhttp調用有中文字元的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
filename="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true為不存在自行建立
openFile.writeline(sText)
Set OpenFile=nothing
%>
＜script>
alert("靜態網頁生成完畢");
history.back();
＜/script>