站内搜索
分类列表
本类阅读排行
本类推荐文章
- ASP技巧:让Len,Left,Right函数识...
- 用ASP实现IE地址栏参数的判断
- 如何实现ASP.NET网站个性化
- 如何在Asp.net中使用HtmlArea编辑...
- 用ASP.Net实现在线压缩和解压缩
- ASP实现不存在的网页就自动发送邮...
- 用ASP取出HTML里面的图片地址的函...
- asp.net跳转页面的三种方法比较
- 一个Winsock组件
- 用WinSock设计Chat程序(转)
- 在MFC应用中深入定制WebBrowser控...
- 这几天有人问关于编应.dll的问题,...
- 在Visual J++中编写ASP COM组件(转...
- 一个显示Grid的VBScript对象
- 好东西,快来看呀:(转载自中华网...
广告
ASP做查询分析器(Query Analyzer)(III)
作者: 来源: 点击: 日期:2007-4-14 23:39:58
sqlultimate.asp--Part C
<html>
<head>
<title>BuildSQL</title>
<!--#include file="DataTypeLib.asp" -->
<script language="JavaScript1.2" type="text/javascript">
<!--
function addField(field) {
strField = document.sqlForm.strSQL.value;
strField = strField + " [" + field + "]";
if(confirm("Add " + field + "?"))
document.sqlForm.strSQL.value = strField;
}
//-->
</script>
</head>
<body bgcolor="#f4e1d2">
<%
If request("createTable") <> "Create Table" Then
response.write("<form name=""sqlForm"" action=""sqlultimate.asp"" method=""POST"">" & vbCrLf)
End If
If request("createTable") = "Create Table" Then
call createTable()
ElseIf strServer = "" Or request("showConnectdb") = "Connect" Then
%>
<h2 align=center>Log into Database Server</h2>
<p align=center>
Server: <input name="sqlserver" type="text" value="<%= strServer %>"><br>
User Name: <input name="log_in" type="text" value="<%= strUserID %>"><br>
Password: <input name="user_password" type="password" value="<%= strPassword %>"><br><br>
<input type=submit>
</p>
<%
ElseIf request("savequery") = "Save Query" and strSQL <> "" Then
<html>
<head>
<title>BuildSQL</title>
<!--#include file="DataTypeLib.asp" -->
<script language="JavaScript1.2" type="text/javascript">
<!--
function addField(field) {
strField = document.sqlForm.strSQL.value;
strField = strField + " [" + field + "]";
if(confirm("Add " + field + "?"))
document.sqlForm.strSQL.value = strField;
}
//-->
</script>
</head>
<body bgcolor="#f4e1d2">
<%
If request("createTable") <> "Create Table" Then
response.write("<form name=""sqlForm"" action=""sqlultimate.asp"" method=""POST"">" & vbCrLf)
End If
If request("createTable") = "Create Table" Then
call createTable()
ElseIf strServer = "" Or request("showConnectdb") = "Connect" Then
%>
<h2 align=center>Log into Database Server</h2>
<p align=center>
Server: <input name="sqlserver" type="text" value="<%= strServer %>"><br>
User Name: <input name="log_in" type="text" value="<%= strUserID %>"><br>
Password: <input name="user_password" type="password" value="<%= strPassword %>"><br><br>
<input type=submit>
</p>
<%
ElseIf request("savequery") = "Save Query" and strSQL <> "" Then
ASP做查询分析器(Query Analyzer)(III) 评论
