A simple asp

最新推荐文章于 2025-08-19 08:41:01 发布

原创最新推荐文章于 2025-08-19 08:41:01 发布 · 537 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#javascript #button #vbscript #action #xhtml #sql server

asp 专栏收录该内容

1 篇文章

订阅专栏

step1: conn.asp

<%
'adodb connection'
dim conn,conntol
conntol = "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=test11;database=test"	
set conn = server.CreateObject("adodb.connection")
conn.open conntol
%>

step2: index.aps

查询，添加，删除，修改，分页

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>A SIMPLE ASP</title>
<!--#include file="conn.asp"-->
</head>
<body>
<%
if request("act") = "add" then
%>
<form action="" method="post">
<table>
<tr>
    <td>Col1</td><td><input type="text" name="col1" /></td>
</tr>
<tr>
    <td>Col2</td><td><input type="text" name="col2" /></td>
</tr>
<tr>
    <td>Col3</td><td><input type="text" name="col3" /></td>
</tr>
<tr>
    <td colspan="2"><input type="button" name="save" value="保存" onclick="this.form.action='save.asp';this.form.submit();" />
	                <input type="button" name="cancel" value="取消" onclick="location.href='index.asp';" />
    </td>
</tr>
</table>
</form>
<%
end if
%>
<form action="" method="post">
<table>
    <tr>
	    <td>Col1</td><td><input type="text" name="col1" /></td>
		<td><input type="submit" name="search" value="查询" onclick="location.href=index.asp" /></td>
		<td><input type="button" name="add" value="添加" onclick="this.form.action='index.asp?act=add';this.form.submit();" /></td>				
	</tr>
</table>
</form>

<form action="" method="post">
<%
  dim col1
  page = clng(request("page"))
  
  if request("col1") = "" then
      col1 = "%"
	  set rs = server.CreateObject("adodb.recordset")
	  rs.open "select * from t1",conn,1,3
  else
      col1 = request("col1")
	  set rs = server.CreateObject("adodb.recordset")
	  rs.open "select * from t1 where col1 like '%"&request("col1")&"%' ",conn,1,3
  end if
%>
<table border="1">
    <tr style="background-color:yellow;">
	    <td><input type="checkbox" /></td>
	    <td>Col1</td>
		<td>Col2</td>
		<td>Col3</td>
	</tr>	
<%

if rs.eof or rs.bof then
%>
    <tr>
	    <td colspan="4">no data</td>
	</tr>
<%
else
	rs.pagesize=2
	if page=0 then page=1 
	pages=rs.pagecount
	if page > pages then page=pages
	rs.absolutepage=page 
	
	for i=1 to rs.pagesize
%>	
    <tr>
	    <td><input type="checkbox" name="checkbox" value="<%= rs("col1") %>" /></td>
	    <td><%= rs("col1") %></td>
		<td><%= rs("col2") %></td>
		<td><%= rs("col3") %></td>
	</tr>
<%
    rs.movenext
	if rs.eof then exit for
	next
end if		

%>	
</table>
<table>
    <tr>
	    <td>
<%
    response.write "<a href=index.asp?page=1&col1="& col1 &">首页</a> "
    response.write "<a href=index.asp?page="&page-1&"&col1="& col1 &">上一页</a> "
    response.write "<a href=index.asp?page="&(page+1)& "&col1="& col1 &">下一页</a>"
    response.write "<a href=index.asp?page="&rs.pagecount&"&col1="& col1 &">尾页</a>"

rs.close
set rs = nothing	
%>		
		</td>
	</tr>
</table>
<table>
    <tr>
	    <td><input type="button" name="del" value="删除" onclick="if(confirm('确定要删除吗？')){this.form.action='delete.asp';this.form.submit();}"/>
		<input type="button" name="modify" value="修改" onclick="this.form.action='modify.asp';this.form.submit();" /></td>
	</tr>
</table>
</form>
<body>
</body>
</html>

step3: save.asp

添加保存

<!--#include file="conn.asp"-->
<%
  set rs = server.CreateObject("adodb.recordset")
  rs.open "select * from t1 where col1 = '"&request("col1")&"'",conn,1,3
  
  if rs.eof or rs.bof then
      rs.addnew
	  rs("col1") = request("col1")
	  rs("col2") = request("col2")
	  rs("col3") = request("col3")
	  
	  rs.update
	  rs.close
	  set rs = nothing
	  response.Write("<script language='javascript'>alert('添加成功!');</script>")
	  response.Write("<script language='javascript'>location.href='index.asp';</script>") 
  else
	  response.Write("<script language='javascript'>alert('数据已经存在!');</script>")
	  response.Write("<script language='javascript'>history.back();</script>")       
  end if
%>

step4: modify.asp

修改画面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<!--#include file="conn.asp"-->
</head>

<body>
<form action="" method="post">
<table border="1">
    <tr>
	    <td>Col1</td>
	    <td>Col2</td>
	    <td>Col3</td>				
	</tr>
<%
    dim cb
	cb = request("checkbox")
	cbs = split(cb,",")
	
	if cb = "" then
	    response.Write("<script language='javascript'>alert('没有修改的内容!');</script>")
		response.Write("<script language='javascript'>history.back();</script>")
	end if
	
	for i=lbound(cbs) to ubound(cbs)
	    set rs = server.CreateObject("adodb.recordset")
		rs.open "select * from t1 where col1 = '"&cbs(i)&"'",conn,1,3
%>
    <tr>
	    <td><input type="text" name="col1" value="<%= rs("col1") %>" /></td>
	    <td><input type="text" name="col2" value="<%= rs("col2") %>" /></td>
	    <td><input type="text" name="col3" value="<%= rs("col3") %>" /></td>				
	</tr>
<%		
        set rs = nothing
	next
%>
</table>
<table>
	<tr>
		<td><input type="button" name="save" value="保存" onclick="this.form.action='save1.asp';this.form.submit();" />
		</td>
	</tr>
</table>
</form>
</body>
</html>

step5: save1.asp

修改保存

<!--#include file="conn.asp"-->
<%
  dim col1,col2,col3
  col1 = request("col1")
  col2 = request("col2")
  col3 = request("col3")  
  col1s = split(col1,",")
  col2s = split(col2,",")
  col3s = split(col3,",")  
  
	if trim(col1)="" then
		Response.Write("<script language=javascript>alert('没有要修改的数据！');</script>")
		Response.Write("<script language=javascript>history.back();</script>")
	end if
	
	for i=lbound(col1s) to ubound(col1s)
	    set rs = server.CreateObject("adodb.recordset")
		rs.open "select * from t1 where col1 = '"&trim(col1s(i))&"'",conn,1,3
		
	  rs("col2") = col2s(i)
	  rs("col3") = col3s(i)
	  rs.update
	  rs.close
	  set rs = nothing
	next

	  response.Write("<script language='javascript'>alert('修改成功!');</script>")
	  response.Write("<script language='javascript'>location.href='index.asp';</script>") 
 
%>

step6: delete.asp

删除数据

<!--#include file="conn.asp"-->
<%
  dim cb
  cb = request("checkbox")
  cbs = split(cb,",")
  
	if trim(cb)="" then
		Response.Write("<script language=javascript>alert('没有要删除的数据！');</script>")
		Response.Write("<script language=javascript>history.back();</script>")
	end if

	for i=lbound(cbs) to ubound(cbs)
		
		Set rs= server.CreateObject("adodb.recordset") 
		rs.Open "delete from t1 where col1 = '"&trim(cbs(i))&"'",conn,1,3

		set rs=nothing
		
	next
	Response.Write("<script language=javascript>alert('删除成功！');</script>")	
	Response.Write("<script language=javascript>location.href='index.asp';</script>")	
	
%>