|
零配件手册 |
|
销售网络 |
|
|
 |
您现在的位置：首页
>> 人才招聘 >> 在线应聘 |
<%
Function myStrLen(str1_)
Dim i_, ASC_
myStrLen = 0
If IsNull(str1_) Then Exit Function
For i_ = 1 to Len(str1_)
ASC_ = Asc(Mid(str1_, i_, 1))
If ASC_ > 0 And ASC_ < 256 Then
myStrLen = myStrLen + 1
ElseIf Asc_ <> 0 Then
myStrLen = myStrLen + 2
End If
Next
End Function
Dim ObjRst,ObjCon,StrSql,StrWhere,StrOrder
Dim Msg
Msg=""
Dim StrTitle,LngRed,LngNew,LngDays,LngIspub,StrDate,StrDetail,StrSTitle,LngId,StrClass
Dim StrImg1,StrImg2,StrImg3,StrImg4,StrImg5,StrImg6,StrImgTitle1,StrImgTitle2,StrImgTitle3,StrImgTitle4,StrImgTitle5,StrImgTitle6
Dim LngPos,LngLen,StrTmp
Dim StrDetail1,StrDetail2,StrDetail3,StrDetail4,StrDetailAll
StrClass="1004"
StrTitle=Trim(Request("title"))
StrSTitle=""
LngRed=Request("Isred")
LngNew=Request("isnew")
LngDays=Request("pubdays")
LngIspub=Request("ispublished")
StrDate=Trim(Request("pubdate"))
StrDetail1=Trim(Request("detail1"))
StrDetail2=Trim(Request("detail2"))
StrDetail3=Trim(Request("detail3"))
StrDetail4=Trim(Request("detail4"))
StrDetailAll=StrDetail1&"*99*"&StrDetail2
StrImg1=Trim(Request("img1"))
StrImg2=Trim(Request("img2"))
StrImg3=Trim(Request("img3"))
StrImg4=Trim(Request("img4"))
StrImg5=Trim(Request("img5"))
StrImg6=Trim(Request("img6"))
Strimgtitle1=Trim(Request("imgtitle1"))
Strimgtitle2=Trim(Request("imgtitle2"))
Strimgtitle3=Trim(Request("imgtitle3"))
Strimgtitle4=Trim(Request("imgtitle4"))
Strimgtitle5=Trim(Request("imgtitle5"))
Strimgtitle6=Trim(Request("imgtitle6"))
If StrDate="" Or Not IsDate(StrDate) Then StrDate=Date()
If LngRed="" Then LngRed=1
If LngNew="" Then LngNew=0
If LngIspub="" Then LngIspub =1
If LngDays="" Then LngDays=10000
If Request("btnadd")<>"" Then
Msg=""
If myStrLen(strtitle)>=100 Or myStrLen(strtitle)=0 Then Msg=Msg&"请认真填写要应聘的职位!
"
If myStrLen(StrImg1)>15 Or myStrLen(StrImg1)=0 Then Msg=Msg&"请认真填写您的姓名!
"
If myStrLen(strImgtitle3)>50 Then Msg=Msg&"请认真填写您的毕业院校!
"
If myStrLen(strImgtitle1)>=50 Or myStrLen(strImgtitle1)=0 Then Msg=Msg&"请认真填写您的联系电话!
"
If myStrLen(strImgtitle2)>=50 Then Msg=Msg&"请认真填写您的EMAIL!
"
If myStrLen(StrDetail1)>=5500 Or myStrLen(StrDetail1)<2 Then Msg=Msg&"请用不超过1000汉字介绍一下自己!
"
If Msg="" Then
Set ObjRst=Server.CreateObject("ADODB.RecordSet")
Set ObjCon=Server.CreateObject("ADODB.Connection")
ObjCon.Open Database
ObjRst.Open "Select Coalesce(max(id)+1,1) From CustomNews ",ObjCon
LngId=ObjRst(0)
ObjRst.Close
LngPos=1
LngLen=1000
strTmp=Mid(StrDetailAll,LngPos,LngLen)
StrSql=""
StrSql="Insert Into CustomNews (id,dealerid,category,flg,color,ispublished,clicked,title,stitle,detail,pubdate,pubtime,pubdays,"
StrSql=StrSql&"img1,img2,img3,img4,img5,img6,imgtitle1,imgtitle2,imgtitle3,imgtitle4,imgtitle5,imgtitle6) values ("
StrSql=StrSql&LngId&","
StrSql=StrSql&CorpNo&","
StrSql=StrSql&"'"&StrClass&"',"
StrSql=StrSql&LngNew&","
StrSql=StrSql&LngRed&","
StrSql=StrSql&LngIspub&","
StrSql=StrSql&"0,"
StrSql=StrSql&"'"&Replace(StrTitle,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrSTitle,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrTmp,"'","''")&"',"
StrSql=StrSql&"'"&StrDate&"',"
StrSql=StrSql&"'"&time()&"',"
StrSql=StrSql&"'"&dateadd("d",lngdays,strdate)&"',"
StrSql=StrSql&"'"&Replace(StrImg1,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImg2,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImg3,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImg4,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImg5,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImg6,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle1,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle2,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle3,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle4,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle5,"'","''")&"',"
StrSql=StrSql&"'"&Replace(StrImgTitle6,"'","''")&"')"
'Response.Write strsql
'Response.End
ObjCon.Execute StrSql
Do While Len(strTmp)=LngLen
LngPos=LngPos+LngLen
strTmp=Mid(StrDetailAll,LngPos,LngLen)
strSql="Update CustomNews Set detail=detail Concat '"&strTmp&"'"
strSql=strSql&" where ID="&lngid
ObjCon.Execute (strSql)
Loop
If ObjRst.State=1 Then ObjRst.Close
ObjCon.Close
Set ObjRst=Nothing
Set ObjCon=Nothing
Response.Write ""
Else
Response.Write "错误提示:
"&Msg&"请[返回上页]重新操作！ "
Response.End
End If
End If
%>
|
