memberinsertupdate.asp

来自「一个ＡＳＰ网站博克程序」· ASP 代码 · 共 35 行

<% Option Explicit %>
<!-- #Include File = "common/LarrixDBMS.asp" -->
<!-- #Include File = "../common/LarrixCODE.asp" -->

<%
	If Session("Passport") = "" Or Session("Passport") <= 0 Or Session("UsrLevel") <> True Then
		Response.Redirect("../Default.asp")
	End If
%>

<%
	Dim objDBMS
	Dim intCount, strValue
	For intCount = 1 To Request.Form("value").Count
  		strValue = strValue & Request.Form("value")(intCount)
	Next
	Set objDBMS = New LarrixDBMS
	objDBMS.Open "SELECT * FROM [Members] WHERE [MemberUID]='" & Trim(Request.Form("username")) & "'", 3
	If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
		objDBMS.objRSET.AddNew
		objDBMS.objRSET("MemberPW").Value = False
		objDBMS.objRSET("MemberUID").Value = Trim(Request.Form("username"))
		objDBMS.objRSET("MemberPWD").Value = MD5(Trim(Request.Form("password")))
		objDBMS.objRSET("MemberEML").Value = Trim(Request.Form("email"))
		objDBMS.objRSET("MemberICQ").Value = Trim(Request.Form("oicq"))
		objDBMS.objRSET("MemberNUM").Value = 0
		objDBMS.objRSET("MemberSEX").Value = Trim(Request.Form("sex"))
		objDBMS.objRSET("MemberWEB").Value = Trim(Request.Form("homepage"))
		objDBMS.objRSET("MemberDTM").Value = Date()
		objDBMS.objRSET.Update
	End If
	objDBMS.Close
	Set objDBMS = Nothing
	Response.Redirect("MemberExplor.asp")
%>