论文参考ASP施甸县旅游咨询网源代

点击上方蓝字　　　线路　天数　图片　报价

表[diyu］　　　地域　地理位置　　旅游资源　水资源　矿产资源　土特产资源　　图片

表[jindian］　　景点　图片　介绍

表[jiaotong］　　班线　东郊总站时间　客运总站时间　交通工具　车次　开行方向　到点开点停点

股道　　黎墉　南宁　柳州　桂林　　备注　　　　　　　　　　　

表[jiudian］　名称　总经理　　地址　　电话　邮编　简介　图片　星级

4.2、登录界面设计

LANGUAGE="VBSCRIPT"CODEPAGE=""%

ifRequest.Form("user_name")""andRequest.Form("password")""then

dimconn,connstr,strsql,rs

connstr="driver={SQLSERVER};server=.0.0.1;database=yulin;uid=sa;pwd="

setconn=server.createobject("ADODB.CONNECTION")

conn.openconnstr

strSql="Selectuser_name,password,user_typeFrom[user]Whereuser_name="Request.Form("user_name")"Andpassword="Request.Form("password")""

Setrs=conn.Execute(strSql)

Ifnotrs.eofandnotrs.bofThen

Session("user_name")=rs("user_name")

session("user_type")=rs("user_type")

Session("password")=rs("password")

selectcaseSession("user_type")

case"管理员"

Response.Redirect"admin.asp"

case"用户"

Response.Redirect"user.asp"

caseelse

Response.Redirect"login.asp"

endselect.....................................................

Else

Response.Write"对不起，用户名或密码有误,且不能为空，请ahref=login.asp返回/a重新登录"

EndIf

END

联系我

获取更多资源

学习更上一层楼

预览时标签不可点收录于话题#个上一篇下一篇

下一篇文章：没有了