|
|
本帖最后由 wenken01 于 2012-7-14 10:06 编辑
◆支持ASP.NET+PHP高速虚拟主机如何选
微软自从推出.NET计划以来,ASP.NET备受程序员的关注和热衷.
◇nice◇http://www.iisp.com/vhost/?s=wenken123 根据时代的要求,全国首家推出脚本 同时支持ASP.NET+PHP+ASP高质量虚拟主机,为程序员建站提供更高环境!
折扣还剩1天，赶快行动吧
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!<a href=Java Script : history.go(-1)>try again</a>":response.end
age=clng(age)
end if
'********************************************************************
' 与SQL Server2000有关的连接
' 可以参照它建立您的数据库连接
'********************************************************************
'敬请注意：
'请根据情况配置StrServer,StrUid,StrSapwd,StrDbName四个参数
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="testuser" '您的登录帐号
StrSaPwd="12345" '您的登录密码
StrDbName="db_test_com" '您的数据库名称
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim Rs '命令字符串
StrDSN="driver={ SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
'********************************************************************
Dim strsql
'********************************************************************
' 读数据库的相关操作
sub readdb()
strsql="select * from test"
rs.open strsql,conn,1,1
if rs.EOF then response.write "no record at all":exit sub
response.write "<table border=1>"
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td><font color=blue>"&rs.Fields(i).Name&"</font></td>"
next
response.write "</tr>"
while not rs.EOF
response.write "<tr>"
for i=0 to rs.Fields.Count-1
response.write "<td>"&rs.Fields(i).Value&"</td>"
next
response.write "</tr>"
rs.MoveNext
wend
response.write "</table>"
rs.Close
end sub
'********************************************************************
' 写数据库的相关操作
sub insertdata()
strsql="INSERT INTO test(name,age,addr) VALUES('"&name&"',"&age&",'"&addr&"')"
rs.Open strsql,conn,1,3
end sub
'********************************************************************
if mode=1 then
call insertdata()
response.write "insert ok!"
elseif mode=2 then
call readdb()
end if
'释放数据库连接对象
set rs=nothing
set conn=nothing
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<script language=javascript>
function clickit(flag){
var form1=document.form2
form1.text4.value=flag;
if (flag==1){
if (form1.text1.value==""){
alert("name cant empty!");
return false;
}
if (form1.text2.value==""){
alert("age cant empty!");
return false;
}
if (form1.text3.value==""){
alert("addr cant empty!");
return false;
}
}
form1.submit();
return true;
}
</script>
</HEAD>
<BODY>
<form method=post name=form2>
name:<INPUT type="text" id=text1 name=text1 size=12>
age:<INPUT type="text" id=text2 name=text2 size=12>
city:<INPUT type="text" id=text3 name=text3 size=12><br>
<INPUT type="hidden" id=text4 name=text4>
<INPUT type="button" value="write" id=button1 name=button1>
<INPUT type="button" value="read" id=button2 name=button2>
</form>
</BODY>
</HTML>
经笔者的使用测试，他提供的ASP.NET 空间性能非常的稳定，版本也会定期的更新升级! Asp.net虚拟主机的服务提供商中，
nicehttp://www.iisp.com/vhost/?s=wenken123是行业内最早开始提供asp.net 虚拟主机，
他们也是 CNNIC ICANN 双认证的域名注册商。产品功能已经非常完善 ，特别提一下几个特有用的功能：
第一步:
第二步:
第三步:
第四步:
第五步:
第六步:
第七步:
第八步:
第九步:
第十步:
Asp.net空间购买方法：http://www.iisp.com/vhost/?s=wenken123
QQ：1042956042 可以随时联系
域名注册,美国虚拟主机,cm域名,虚拟主机,美国主机,韩国主机,香港...
nice是中国知名网络基础服务服务商,提供国际域名注册,虚拟主机,美国虚拟主机,韩国虚拟主机,香港虚拟主机,,海外域名注册,国外域名注册,COM域名,CN域名,CC域名,AC域...
http://www.iisp.com/vhost/?s=wenken123 |
|
|手机版|Archiver|火车采集器官方站
( 皖ICP备06000549 )
发表于 2012-7-14 10:05:52
