asp操作数据库的ui
<!--#include file="conn.asp"-->
<!--#include file="inc/head.asp"-->
<!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" xml:lang="zh-cn" lang="zh-cn" xmlns:qz="http://qzone.qq.com/">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="Content-Language" content="gb2312" />
<title>测试</title>
</head>
<body style="margin:10px;">
<form action="" method="post">
<textarea name=sql rows=5 style="width:100%" onkeypress="if(event.keyCode==10)submit.click()"><%=request("sql")%></textarea><BR>
<input type=submit id=submit style="width:20%" >
<input type=input name=pass style="width:75%" value="<%=request("pass")%>">
</form>
<%
function tip(text)
response.write(text)
end function
if request("sql") = "" then
tip ("缺少sql语句<BR>")
elseif request("pass") <> "pass" then
tip ("密码不对<BR>")
else
dosql()
end if
sub dosql()
dim result, startTime, lastId, ri
startTime = now()
set result = conn.execute(request("sql"))
if result.State = 1 then
while( result.EOF = False )
for ri = 0 to 999
on error resume next
tip ri&". "&result(ri).name & ": " & result(ri) & "<BR>"
if err.number <> 0 then
exit for
&n
相关文档:
按“F12”试试效果。
注:常用的时间函数:
now() 获取当前系统日期和时间,ASP输出可以这样写:<%=now()%>
Year(now()) 获取年份 ......
<%
SQL1 = "update table1 set a=b where id=1"
Conn.ExeCute SQL1
SQL2 = "update table2 set a=b where id=2"
Conn.ExeCute SQL2
SQL3 = "update table3 set a=b where id=3"
Conn.ExeCute SQL3
%>
&nb ......
JS:
//获取元素指定tagName的父元素 lxh 2009 03 10
function public_GetParentByTagName(element, tagName)
{
var parent = element.parentNode;
var upperTagName = tagName.toUpperCase();
while (parent && (parent.tagName.toU ......