Ⅰ asp.net 分頁代碼 首頁 上一頁 1 2 3 4 5 >> …… 30 下一頁 尾頁
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="gb2312" >
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta name="author" content="Smiling Dolphin" />
<meta name="keywords" content="design, css, cascading, style, sheets, xhtml, graphic design, w3c, web standards, visual, display, java, javascript, c++, php, jsp, asp, py, pl" />
<meta name="description" content="my favorites language." />
<meta name="robots" content="all" />
<title>仿豆瓣分頁原型（Javascript版）</title>
<style type="text/css" title="currentStyle" media="screen">
/* Paginator */
.paginator {
font: 14.8px normal Arial, Helvetica, sans-serif;
color: #666666;
margin-top: 10px;
margin-bottom: 5px;
line-height: 150%;
background-color: #EEFFEE;
text-align: center;
}
.paginator a, .thispage, .break {
padding: 2px 4px;
}
.paginator .prev {
margin-right: 20px;
}
.paginator .next {
margin-left: 20px;
}
.paginator .count {
margin-left: 20px;
font-size: 11px;
}
</style>
</head>
<body>
<div id="pagebar" class="paginator"></div>
<script language="javascript" type="text/javascript">
function QueryString(item){
var sValue=location.search.match(new RegExp("[\?\&]"+item+"=([^\&]*)(\&?)","i"))
return sValue?sValue[1]:sValue
}
var count = 56;
var perpage = 20;
var currentpage = QueryString("page");
if (currentpage==null){
currentpage = 1;
}else{
currentpage = parseInt(currentpage);
}
var pagecount = Math.floor(count/perpage);
if(perpage*pagecount!=count)pagecount++;
var pagestr = "";
var breakpage = 9;
var currentposition = 4;
var breakspace = 2;
var maxspace = 4;
var prevnum = currentpage-currentposition;
var nextnum = currentpage+currentposition;
if(prevnum<1) prevnum = 1;
if(nextnum>pagecount) nextnum = pagecount;
pagestr += (currentpage==1)?'<span class="prev">< 前頁</span>':'<span class="prev">< <a href="?page='+(currentpage-1)+'">前頁</a></span>';
if(prevnum-breakspace>maxspace){
for(i=1;i<=breakspace;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
pagestr += '<span class="break">...</span>';
for(i=pagecount-breakpage+1;i<prevnum;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
}else{
for(i=1;i<prevnum;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
}
for(i=prevnum;i<=nextnum;i++){
pagestr += (currentpage==i)?'<span class="thispage">'+i+'</span>':'<a href="?page='+i+'">'+i+'</a>';
}
if(pagecount-breakspace-nextnum+1>maxspace){
for(i=nextnum+1;i<=breakpage;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
pagestr += '<span class="break">...</span>';
for(i=pagecount-breakspace+1;i<=pagecount;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
}else{
for(i=nextnum+1;i<=pagecount;i++)
pagestr += '<a href="?page='+i+'">'+i+'</a>';
}
pagestr += (currentpage==pagecount)?'<span class="next">後頁 ></span>':'<span class="next"><a href="?page='+(currentpage+1)+'">後頁</a> ></span>';
document.getElementById("pagebar").innerHTML = pagestr;
</script>
</body>
</html>
Ⅱ asp網站如何在首頁添加友情鏈接的代碼
直接寫到index.html模板中就行！目錄是"/"&sitePath&"templates/"&defaultTemplate&"/"&htmlFilePath&"/index.html"
Ⅲ asp代碼注釋
session就是全局都可以通用的存放空間。
如session("name")="三毛"
就是把「三毛」賦值給session("name")了
你只要在你的同一站點里的文件都可以得到這個值。
index.asp(管理主界面)程序，代碼如下：
<%@language=vbscript%>
<%if not session("checked")="yes" then 『如果session("checked")不等於yes就直接跳轉到login.asp文件.
response.Redirect "login.asp" '直接跳轉到login.asp文件
else '反之，就執行下面的end if之前的代碼，
%>
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<frameset cols="167,*" frameborder="YES" border="1" framespacing="1" rows="*" bordercolor="#666666">
<frame name="leftFrame" scrolling="auto" noresize src="left.asp">
<frame name="mainFrame" src="right.asp">
</frameset>
<noframes>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</noframes>
</html>
<%end if%>
login.asp：//登陸系統程序中的一段
<span class="font">密 碼：</span>
<input type="password" name="password" class="text" size="20" onMouseOver="this.focus()">
<%if session("check")="wrong" then response.Write "<br><span class='font'><font color=red>驗證錯誤!</font></span>" end if%> 『如果session("check")等於wrong這個字元串就輸出，驗證錯識這幾個字.
check.asp：//核對輸入的用戶和密碼是否正確
<%
dim name,password
'定義 name,password
name=request.form("name") '把取得name表單的值賦值給name變數。
password=request.form("passw
ord") 『'把password表單的值賦值給password變數
dim exec,conn,rs
'定義 exec,conn,rs
exec="select *from check where(name='"&name&"' and password='"&password&"')"
'check表中name的值等於上面表單中接收到的name值，和password等於上面接收到的request.form("password")值，符號要求的表中的所有字短賦值給exec變數.
set conn=server.createobject("adodb.connection") '建立資料庫連接
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("admin.mdb") 『打開連接資料庫
set rs=server.createobject("adodb.recordset") '建立集
rs.open exec,conn '打開資料庫 rs.open exec,conn,1,1
if not rs.eof then '如果資料庫中不是第一個記錄的話
rs.Close '關閉集合
conn.Close '連接文件關閉，
session("checked")="yes" 『把YES字元串賦值給session("checked")
session("check")="right" '把right賦值給session("check")
response.Redirect "index.asp" '直接跳轉到index.asp文件
else '反之，就是資料庫中有多條記錄的話，
session("checked")="no" 『把no字元串賦值給session("checked")
session("check")="wrong" '把wrong字元串賦值給session("checked")
response.Redirect "login.asp" '直接跳轉到login.asp文件
end if
%>
left.asp：//管理導航
<%@language=vbscript%>
<%if not session("checked")="yes" then '如果session("checked")的值不是yes的話.
response.Redirect "login.asp" '跳轉到login.asp頁面
else 『反之,執行下面的一些html代碼
%>
<html>
<head>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body text="#000000" topmargin="0" bgcolor="#ffffff" leftmargin="10">
<div align="center"><a href="index.asp" target="_parent"><br>
<br>
管理界面首頁</a> <a href="exit.asp" target="_parent">退出</a><br>
<br>
</div>
</body>
</html>
<%end if%>
exit.asp：//退出系統
<%@language=vbscript%>
<%
session("check")="" '這些就沒有意義了,沒if就空值直接跳轉
session("checked")=""
response.redirect "login.asp" 'if session("check")="" or session("checked")="" then
response.redirect"login.asp"
end if
%>
right.asp：//具體管理的內容
<%@language=vbscript%>
<%if not session("checked")="yes" then 'session("checked")等於yes跳轉到login.asp頁面
response.Redirect "login.asp"
else
%>
<html>
<title>管理界面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ffffff" text="#000000" topmargin="20" class="title">
這里是網頁教學網的管理系統示例！請大家多研究使用！
</body>
</html>
<%end if%>
Ⅳ asp注冊登陸代碼
如果有需要可以Hi我.網上的代碼我沒用過,我想一般不會有太多的錯誤吧,可能是操作上的原因.呵呵
Ⅳ 求一個：最簡單的asp登陸界面代碼
<form id="form1" name="form1">
用戶名：<input type="text" id="UserName" name="UserName">
密 碼：<input type="password" id="PassWord" name="PassWord">
<input type="button" value="提交" onclick="javascript:if
(document.all.UserName.value!='suchen' && document.all.PassWord.value!
='suchen'){alert('用戶名或密碼有誤!')}else
{location.href='http://hi..com/ken_fly';}">
</form>
因為你沒有資料庫的，所以其實用這個就行了，不用那麼麻煩，
把「suchen"和那個http://hi..com/ken_fly改為你想要的就行。
呵呵。把它復制到別的地方比較看得清。這里這個寬度太小，不好看！
設計的話，要你自己根據你的頁面設計，在這里我就幫不了你了，只能給你源碼。呵呵!
Ⅵ 用ASP製作登陸頁面的代碼
時間關系，沒給你寫 所以就復制了一段 可到我論壇看看
http://forum.liehuo.net/
代碼如下：
1.connection.asp里的代碼是:
<%
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("student.mdb")
%>
2.yanzheng.asp里的代碼是:
<!--#include file="connection.asp"-->
<%
dim zhanghao,mima
zhanghao=request("zhanghao")
mima=request("mima")
if zhanghao="" then
%>
<script language=javascript>
alert("帳號為空");
location.href="denglu.asp"
</script>
<% end if %>
<% if mima="" then
%>
<script language=javascript>
alert("密碼為空");
location.href="denglu.asp"
</script>
<% end if %>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from student where zhanghao='"&zhanghao&"'",conn,1,3
if not rs.eof then
if mima=rs("mima") then
session("zhanghao")=zhanghao
Response.write("<script>location.href('index.asp')</script>" )
else
response.write ("<script>alert('用戶密碼錯誤');location.href('denglu.asp')</script>")
end if
end if
if rs.eof then
response.write ("<script>alert('用戶帳號錯誤');location.href('denglu.asp')</script>")
end if
set rs=nothing
rs.close
%>
二、
conn.asp
<%
Set conn=Server.CreateObject("ADODB.Connection")
connstr="DBQ="+server.mappath("haha.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
conn.Open connstr
%>
index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無標題文檔</title>
</head>
<body>
<form name="form1" method="post" action="login.asp">
<table width="50%" height="108" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>用戶名：</td>
<td><input name="us" type="text" id="us"></td>
</tr>
<tr>
<td>密碼：</td>
<td><input name="pa" type="password" id="pa" value=""></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</body>
</html>
login.asp
<!--#include file="conn.asp"-->
<%
us=replace(request.form("us"),"'","』")
pa=replace(request.form("pa"),"'","』")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from haha where us='"&us&"' and pa='"&pa&"'"
rs.open sql,conn,1,1
%>
<%
if rs.eof or rs.bof then
response.write"密碼錯誤~"
else
response.redirect"main.asp"
end if
%>
三、
連接資料庫(conn.asp)
<%
dim db,conn,connstr
db="@data.mdb"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("../data/"&db&"")
conn.Open connstr
%>
登錄頁面（login.asp）
<% @language=vbscript %>
<!--#include file="conn.asp"-->
<%
On Error Resume Next
dim uid
dim pwd
uid=trim(request.Form("uid")) '獲得用戶名
pwd=trim(request.form("pwd")) '獲得密碼
dim rs
set rs=server.createobject("adodb.recordset")
if uid<>"" then
dim sqlstr
sqlstr="select uid,pwd from admin where uid='"&replace(uid,"'","''")&"' and pwd='"&replace(pwd,"'","''")&"'"
rs.open sqlstr,conn,3,1
if not rs.eof then
session("uid")=uid
response.redirect "login_ok.asp" '重定位url
else
response.redirect "error.htm"
end if
else
response.redirect "error.htm"
end if
%>